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LBR_OPENCLOSE 16-Sep-1984 02:01: AxX-11 Bliss-32 V4.0-742 Page 1 
12-Sep-19 4 93:9) :e8 LBR.SRCJOPENCLOSE .832;1 (1) 
; 1 001 MODULE LBR_OPENCLOSE ( ! Open/close routines for LISRARIAN 
5 ¢ Oe LANGUAGE COL 18536) « 
; IDENT = ‘'V04-000 
ee 4 d= 
§ 5 44 : BEGIN 
: § 809 1! 
3 3 44's : initia nian alain 
; .* ® 
; 10 0010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
: 11 0011 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. t 
: i pote : :* ALL RIGHTS RESERVED. * 
; ! * 
: 14 0014 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
: 15 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
: 16 8918 1 !@ INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
: 17 001 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
: 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
H 1 4 : :* TRANSFERRED. * 
2 if ® 
; 21 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; $§ 00 ¢ 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: 24 88 i : 7 CORPORATION. * 
4 ‘ft w 
; 5 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; @& 0026 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; af 0027 1 !« * 
; a 0028 1 !* * 
4 $0 34 : Lee RARER AAAARARRARR ARERR EERE EEE 
3 1 0031 1 !++ 
3 3 itt 1! 
im 0033 1! FACILITY: Library access procedures 
; $e 0034 1! 
; 5 0035 1 ! ABSTRACT: 
; = 0036 1! 
sae os 0037 1! The VAX/VMS Librarian procedures implement a standard access method 
g $ 44 : to Libraries through a shared, common procedure set. 
; 40 0040 1 ! ENVIRONMENT: 
: 41 0041 1! 
; $¢ OOe§ 1! VAX native, user mode. 
; 4 0043 1! 
3 &S bh 1 !<< 
> 45 045 1 | | 
: 46 0046 1! 
3: «647 0047 1 ! AUTHOR: Benn Schreiber, CREATRON DATE: 7-Jun-1979 
: «6448 0048 1! 
: «649 049 1 ! MODIFIED BY: 
: 50 050 1! 
; «63h 051 1! v03-009 GJA0098 Greg Awdziewicz 13-Aug-1984 
: 2g O36 . 7 - Allow larger buffers for reading DCX encoded Libraries. 
; 2 053 1! - Replace references to obj$c_maxrecsiz with lbr$_maxrecsiz 
; ee pee ! to be consistent. 
3 56 0036 1! v03-008 JWT0186 Jim Teague ; 6-Jul-1984 | 
; 0057 1! Read up to 10 map blocks at once in order to speed 
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1b-se0-1984 96304 :88 aoe Bliss-32 Eh et oe 


14-Sep-1 LBR.SRCJOPENCLOSE .B32; 
up processing of DCX data-reduced Libraries. 
GJA0082 Greg Awdziewicz 1984 


10-Apr- 
- Turn the OFP (output file parsing) bit in BLL cases if 
we are —— al prety. (It_had been made cqng gional 
jie, set equal to NULLPARAMETER(S), as part of v5-003) 


JWT0114 Jim Teague 20-Apr-1983 
Activate DCXSHR dynamically when needed. 
JWT0101 08-Mar-1983 


Jim Teague 
Fix error in the checking of maximum control 
index number. 


JwT0085 Jim Teague 11-Jan-1982 
Use Lib$Sget_ef to set a timer wait for locked 
libraries. Free with Lib$free_ef. Also add 
new sanity id for compressed libraries. 


JWT0067 Jim Teague 11-Nov-1982 
Enlarged the space allocated for DCX records; 
made LBR clean up after itself more thoroughly; 
for Library creation, if a related name block is 
passed, then USE IT. 


JWT0062 Jim Teague 26-0c t-1982 
Made DCX descriptors static as part of CTX block. 


JWT0056 Jim Teague 16-Sep-1982 
papi ppentes interface to DCX data compression/expansion 
ac 
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LBR_OPENCLOSE 18-Se -1984 02:01: AX-11 Bliss-32 V4.0-74 Page 3 
1002000 Declarations 12-8687 1388 95:93:28 LBR SREJOPENCLOSE 63244 : (2) 
>: 9% 093 1 XSBTTL ‘Declarations’; 
. 094 1 LIBRARY 
3 38 095 1 *SYSSLIBRARY:STARLET.L32'; 'System macros | 
. = 838 1 REQUIRE 
3; 1 *PREFIX'; ‘Librarian general definitions 
; § 1 REQUIRE 
; 100 1 "LBRDEF'; 'Librarian structure definitions 
; 101 8 1 REQUIRE 
: 106 8 9 1 "OLDFMTDEF'; 'Old format (VMS R1) Library structure 
3; 925 1 
; 104 09 § 1 
; 105 83 1 ! Replacing uses of obj$c_maxrecsiz with lbr$c_maxrecsiz requires that 
; 106 926 1 ! they have the same value. Also, provide a larger value for DCX 
: 107 0929 1 ! encoded records since they may in fact grow when amar are ‘'reduced"’ -- 
3 138 83 ? : 1 @.9., adding a message pointer object module to an object library. 
: 110 U 474 1 SIF Lbr$c_maxrecsiz NEQ obj$c_maxrecsiz XTHEN 
: 111 U 09335 1 XERROR ('Tbr$Sc_maxrecsiz is not equivalent to obj$c_maxrecsiz') 
; a oe 1 &FI 
2B i: 935 1 
> (114 0936 1 LITERAL 
: 115 0937 1 Lbr_dcx$c_maxrecsiz= 2 * Lbr$c_maxrecsiz, ! Allow DCX maximum record size 
3; «116 0938 1 ! to be larger than normal. 
; 117 0939 1 num_dcx_routines = 10, 
; (118 0940 1 top_index = 1; 
: 119 0941 1 
: 120 0942 1 EXTERNAL LITERAL 
3 Yer 943 1 : 
3 \s¢ 944 1 ! success codes 
; \¢ 0945 1 ! 
; 124 0946 1 dcx$_normal, 
: 125 0947 1 dcx$_again 
: 126 0948 1 Lbr$_normal, ' success 
: 127 0949 1 lbr$_oldlibrary, ! old format Library opened 
> 128 0950 1 
3 if 9 4 0951 1 } 
3; 130 a4) 1 ! idarning codes 
s 33) 0953 1 ! 
3 136 0954 1 Lor$_oldmismch, ! old format Library type mismatch 
3 13 0955 1 Lbr$_typmismch, ! Library type mismatc 
: 134 0956 1 lbr$_errclose, ! Error occurred in closing Library 
s %35 0957 1 
; 136 0958 1 : 
3 13 3584 1 ! Error codes 
: 138 960 1 } 
: 139 0961 1 lbr$_illctl, ! illegal control index 
: 140 3444 1 lbr$_illcreopt, ! illegal create options 
3; «6141 0963 1 Lbr$_illfmt, ' illegal Library format 
3 166 964 1 lLbr$_ill func, ! illegal Library function 
3 (14 965 1 lLor$_illtyp, ! illegal Library type 
3 144 Ms ¢ 1 Lbr$_Libnotopn, ! Library not open 
z 145 967 | tbr$_libopn. ! Library already open 
3 169 968 1 Lor$_nofilnam ! no file specification found 
3 (614 3 1 Lbr$~toomny| ib; ! too many libraries open 
: 148 970 1 
3 «149 0971 1 EXTERNAL 
3; 150 0972 #1 dcx_analyze_init, 
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1002000 Declarations 137888-1 382 93:0) i88 {CBR SRC OPENCLOSE.830¢1 (2) 

s 39) 973 1 dcx_analyze_data, ; 
i 15 974 1 — dexzanalyze-done, 
- % 975 1 dcx_expand_Tnit , ; 
; 154 af8 1 dcx_expand_done , : 
3 399 977 1 dcx_compress_init, ; 
; 156 378 1 dcx-compress_done, : 
s 157 79 «1 dcx_make_map ‘ $ 
; 158 0980 1 dcxShr_address, 'Base address of dcxshr if mapped | > 
; 159 bo 1 lLobr$gl control : REF BLOCK C,BYTE), ‘Pointer to current control table : 
; 160 982 1 lbr$al_ctltab : VECTOR Clbr$c_maxctll, 'Table of pointers to all known control tables : 
; 161 09835 1 lLbr$gl_hictl, ‘Highest control number allocated ; 
3 166 0984 1 mem$\_maxblk, 'Max size of expand region request to get memory ’ 
3; 1 985 1 mem$\_memexp, ‘Number of pages in expand region request : 
3: 164 986 1 Lbr$gl_maxread, 'Max. number olocks to read at once : 
; 165 987 1 Lor$gl_rmsstv, ‘Return RMS STV code here on errors : 
; 166 849: ! lbr$gt_lbrver : VECTOR (32, BYTE); !ASCIC string of Librarian ID : 
; 168 0990 1 EXTERNAL ROUTINE F 
> 169 0991 «#1 LibSadr_image, : 
: 170 0992 #1 Lib$get_ef : addressing_mode (general), : 
s 71 0993 1 LibSfree_ef : addressing_mode (general), : 
; \7¢ 0994 1 alloc_block: jsb_2, : 
3; 7 0995 1 rpreeee index, : 
> 174 0996 1 Lor$find, : 
3; 75 0997 1 Lor$get_record, : 
: 176 0998 #1 lbr_old_lib_dat ‘Extract info for old Library ‘ 
: 177 0999 1 read_block : JSB_2 iRead a disk block ; 
: 178 1000 1 write_block e* iwrite a disk block ; 
3; 179 1001 1 add cache : JSB_2, ‘Add entry to cache List : 
; 180 1002 1 dealloc_cache, ! Empty disk block cache F 
; 181 1003 1 validate_ctl : JS8_1, ‘Validate control blocks : 
3 1s¢ 1004 1 get_mem : JSB_2 ! Allocate dynamic memory : 
; 18 1005 1 et-zmem : JSB_2 ‘Allocate and zero virtual memory : 
3 is ieee : ealloc_mem : JSB_2; ! Deallocate dynamic memory : 
; 186 1008 1 FORWARD ROUTINE : 
: 187 1009 1 lbr$load_dcx, : 
; 188 1010 1 Lor$dcx_map, F 
> «189 1011 1 cx_it, : 
; 190 iOls 1 prealloc_index, 'Preallocate index blocks : 
> «191 1015 1 all_control_idx, ‘Allocate a control table index number : 
: 192 1014 1 dea_control_idx : NOVALUE, 'Deallocate a control table index number 3 
3; 193 1015 1 LorS$close, 'Close ree library file, delete : 
3 194 1916 1 ' all allocated memory : 
3 195 1017 1 lbr_deal_mem : NOVALUE, 'Deallocate all allocated memory : 
; 196 ois 1 read_n_map_blocks; ! Read up to 10 DCX map blocks : 
3 6197 1019 1 3 
; 198 1020 1 OWN : 
: 199 Ht 1 dcxshr_string : countedstring('DCXSHR") : 
; 200 1088 1 defaul€_string : countedstring('SYSSSHARE:.EXE"), F 
3 $1 1023 1 Lib_confrol_index, 3 
; 202 1024 1 tocal_dcx_context; : 
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y00=008 LBRSINI_CONTROL 12-80-1382 03 :0h:28 LOR. SREJOPENCLOSE 3204 - (3) 

H 04 1025 1 ZSBTTL ‘LBRSINI_CONTROL'; $ 
: 05 : 8 1 ts ROUTINE LBr$Sini_control (control_index, func, type, namblk) = : 
; Of 1028 : 
; 208 18 9 144 3 
; 209 10350 ! $ 
: 1 18 1 FUNCTIONAL DESCRIPTION: ; 
: \ 10 : : This routine initializes a control table for use by the library ; 
: 17 13 : } access procedures. : 
; 15 i i CALLING SEQUENCE: ; 
: i Ht 3 STATUS = LBRSINI_CONTROL(control_index, func, type,namblk) 3 
; $19 1040 2 | INPUT PARAMETERS: ; 
; 220 1041 : func Address of a Longuerd containing the desired : 
3 gel 1ong : function = LBRSC_CREATE, LBRSC_READ, or : 
3 $s¢ 104 ! LBRSC_UPDATE. 3 
; ee 1044 ! type The type of Library expected to open. If not ; 
: $e 1045 ! supplied, or 0, no type checking is done. F 
3 5 1046 ! nambLk The (optional) address of a NAM block. : 
: 226 1047 ‘ t has been previously filled in, : 
; 2e7 1048 ! the file will be opened H NAM block, 3 
; 228 1049 ' otherwise the NAM block will be filled : 
: $$2 ee in for tater use. : 
; 331 1058 IMPLICIT INPUTS: : 
; $38 1054 ; i ; 
; See Wee § OUTPUT PARAMETERS: : 
: 236 1057 2! control_index Receives the control_table index to use ; 
$s ¢or 1058 § : on all subsequent calls to the Librarian : 
: $36 1939 for this library. : 
; 340 1061 i IMPLICIT OUTPUTS: 3 
; aug 1968 } The control_table is initialized. 3 
; ghd 1065 ¢ { ROUTINE VALUE: : 
; ste 1067 2! Lbr$_normal Control table initialized 3 
3 247 1908 ‘ lLor$_illtyp Illegal Library type specified 3 
; 248 1069 : Lor$_illfunc. Illegal function requested : 
; ro 1379 Lbr$_toomnylib Too many Libraries : 
; 251 107¢ gin ; 
; 26 107 F 
; I9re P 3 
3 254 1075 namblk : REF BBLOCK; : 
B aoe 1976 BUILTIN 3 
: 28 ta NULLPARAMETER; : 
; 38 1079 If NOT NULLPARAMETER (3) ' If type specified, ; 
: 260 1081 IF ..type GTRU Lbr$c_typ_decmx ! If expected type illegai, | ; 
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-BL 
0001C LOCAL_DCX_CONTEXT: 
-BLKB 4 


LBRS_ L LL 
LBRS$-ILLCREOPT, LBRS_ILLFMT 
“ILLF (ers ICLTY 
LBR$"LIBNOTOPN, LBR$ LIBOPN 

FILNAM, LERS_TOOMNYL 1B 


> 261 1 AND ..type LSSU Lbr$c_t d 
: $6 1988 THEN sh Son toe iets 
; o7 } ¢ RETURN LbrS_illtyp; ! Return with error 
: 265 10 IF_..fune GTRU Lbr$c_max func ! If function is illegal 
; 68 : e; THEN RETURN Lbr$_ill func; ! then return with ertor 
: 268 1089 perform (all_control_idx (.control_ index, Lor$gl_control));!Get an index number 
: 34 4 !(also allocate control table) 
: 27] 1338 Lbr$gl_control Clbr$b_id) = tg ctltblid; 
: e7 109 Lbr$gl_control (lbr$b_tblsiz) = LBr$c_length; 
; i 1O3e lbr$gl_control Clor$b_func] = ..func;” ! Set function code 
: 275 109 IF NOT NULLPARAMETER (3) ! If type specified, 
: 576 1097 5 THEN seed 
: sie Ie lbr$gl_control Clbr$b_type] = ..type; ! Set type of Library expected 
; 379 1100 2 IF NOT NULLPARAMETER (4) 
; 280 1101 THEN Lbr$gl_control Clbr$l_usrnam]) = .nambLk; 
; 281 1136 2 RETURN Lbr$_normal 
3; 282 1103 1 END; ! Of LBRSINI_CONTROL 
-TITLE LBR_OPENCLOSE 
-IDENT \v0%-000\ 
-PSECT SOWNS,NOEXE,2 
06 00000 aan ad te 6 
52 48 53 58 43 44 00001 “ASCII \DCXSHR\ : 
00007 -BLKB 1 
OE 00008 ahmed ts 14 
45 58 45 2— 3A 45 52 41 48 53 24 53 59 53 00009 “ASCII \SYS$SHARE: .EXE\ : 
00017 -BLKB 1 
00018 LIB_CONTROL pune 
| 
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SCODES + 0000 


; Routine Size: 


DCX_MAKE_MAP DCXSHR ADDRESS 
LBRSGL_CONTROL, LBRSAL_CTLTAB 
LBRS$GL-HICTL, hen L_MA KROL 
HENS tREHEXP. LBRS$GC_MAXREAD 


L L 
LBRSGET_INDEX, LBRSF IND 
ie RECO ae Hirst OLD _LIB_DAT 


SCODES NOUR, 2 


175 er, aii Save nothing 


#LBRS_ILLTYP, RO 
@FUNC, #2 
#LBRS_ILLFUNC, RO 


LBRSGL_ CONTROL 
CONTROC_ INDEX 
oes ALL-CONTROL_IDX 


STATUS, 

Lons@l = GDRTROL RO 
#7883,— 

SFUNC. $RO) 

(AP), #3 


12¢AP) 


aTYPE, — 
(AP), 

4$ 

16(AP) 

4$ 

NAMBLK, 22(RO) 
#LBRS_NORMAL, RO 
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1 ZSBTTL ‘LBRSOCX_MAP'; 
5 GLOBAL ROUTINE LBrSdcx_map (ctl_index, dcx_map_desc) = 
BEGIN 
144 ; 
89 ! 
+ FUNCTIONAL DESCRIPTION: 


This routine provides a DCX map to the calling routine. 
If a data-reduced library is being opened, the existing 


94 DCX map is used. Otherwise a new map is produced by 
95 analyzing the contents of all modules in the Library. 
39 INPUT PARAMETERS: 

98 ctl_index The control index for the Library. 


OUTPUT PARAMETERS: 

dcx_map_dsc The address of a two-longword descriptor 
into which the DCX map length and address 
are stored 


i IMPLICIT INPUTS: 
NONE 

i IMPLICIT OUTPUTS: 
; NONE 


] 

== 

BUILTIN 

NULLPARAME TER; 

dcx_map_desc : REF VECTOR; 


LOCAL 
index, 
status, 
ok; 


‘y -dcxshr_address eql 0 
en 
perform(lbr$load_dcx()); 


‘ 
Input Library is in expanded format 


iF NOT NULLPARAMETER(1) 
THEN 


BEGIN 3 
IF NOT (status = validate_ctl(..ctl_index)) 


RETURN .status; 
index = top_index; 


Lib_control-index = ..ctl_index; 
perform ( (.dcx_analyze_init) ( local_dcx_context )); 
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LBR PENCLOSE b-sep-1984 05:04:08 Ax-11 Oh isenze Mo el dt Page 


- LBR.SRCJOPENCLOSE .B32; 


| 
| 
LBRSDCX_MAP 1 | 
3 
4 BF an thie ( Lbr$get_index (Lib_control_index, index, dcx_it)) 
(ok = (.dcx_make_map) (local_dcx_context, dcx_map_desc [1], dcx_map_desc [0] )) EQL dcx$_again ; | 
IF_.ok | 
THEN 
perform ( (.dcx_analyze_done) ( local_dcx_context ) ); ! free vm in dcx 
END 
4 
4 
; 


i] 
; Input Library is in compressed format 
ELSE 


map_begin, 
map_moved, 


map_blocks, 
blocks_left; 


header = .lbr$gl_controlClbr$l_hdrptri; 

mapvbn = .header€Lhd$l_dcxmapvbnJ; 

Block addr); 

0j = . block_addr, map_pointer)); 


map_left = .dcx_map_desc(0J; 
CHSMOVE (map_moved S“MIN( dei _map_descC0], LbrSe pagesize-4) -block_addr+4, dcx_map_desc(1] = .map_pointe 


OOOO 0 000 0090009 69 09 09 09 09 09 09 SII NII NINN NIN IOP AAA AAAO 


SOOoOCoooooo 


74 IF (blocks_Teft = (map_blockS = [dcx mep.cesc lbr$c_pagesize 

a nen (J (.dcex_map_descl0) MOB Lbr$c_pagesize) GTR 0 THEN 1 ELSE 0)) - 1) GTR O 
7 BEGIN 

78 mapvbn = .mapvbn + 1; 

79 INCR i FROM 2 TO .map_blocks BY 10 DO 

80 BEGIN 

81 LOCAL 

8 blocks_read; 

8 P 


perform(read_n_map_blocks(.mapvbn , block_addr 
locks~read = MIN (.blocks_left, 16) )); 
mapvbn = .mapvbn + .blocks_read; 
map_pointer = .map_pointer + .map_moved; 
map_left = .map_left - .map_moved; 
blocks left = .Blocks left = .blocks read; : : 
CHSMOVE (map_moved = MIN(.map_left,.blocks_read * Lbr$c_pagesize),.block_addr, .map_pointer); 


PIPIPIPIPIMIDN NINN a at a at kk kk kk kd tt hh tt to 


END; 
ok = dcx$_normal; 


mee ec me eee ee ee ed ed od dd ed wd ed Sd td 
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RETURN .ok; 
END; 


} 
9 | 
LBR_OPENCLOSE 16-Sep-1984 02:01:2 AX-11 Bliss-32 V4.0-742 Page 10 
iOa=000 LBRSDCX_MAP 1-8ep-19 4 95:91:28 PtBR. SRC OPENCLOSE .B32;1 . a 
OFFC 00000 ENTRY LBRSDCX MAP, Save R2,R3,R4,R5,R6,R7,RB,R9,- = 1105 : 
SE 10 C2 9002 SUBL2 #16, SP : ; 
00006 CF D5 0000 TSTL  DCXSHR_ADDRESS ; 1143 : 
8 12 00009 BNEQ ‘1 : ; 
0000v cF 0 FB 00008 CALLS #0 LBRS{QAD_DCX + 1145 : 
D 0 £9 9901 BLBC © STATUS, 3$ ; : 
56 08 AC DO 00013 1$: MOVL § DCX_MAP_DESC, R6 + 1164 ’ 
6¢ 9 0001 STB = CAP + 1150 : 
65 13 00019 BEQL 6 : : 
04 Ac 03 00018 TSTL  4(AP) : ; 
60 1 S018 BEQL 6 : ; 
50 04 BC 06 00 MOVL  a@CTL_INDEX, RO + 1153 ; 
00006 30 00024 BSBW  VALIBATE_CTL : : 
bE 50 €9 00027 BLBC ‘STATUS, 7$ : ; 
04 AE 01 DO 0002A MOVL IND + 1157 ; 
0000" CF 04 BC dO 000¢E MOVL CTL_INDEX, LIB_CONTROL_ INDEX : 1158 : 
0000" CF 9F 00034 PUSHAB LOCAC_DCX_CONTERT : 1159 ; 
0000G DF 01 FB 00038 CALLS #1, @BCX_ANALYZE_INIT : 3 
6C 50 EY 00030 BLBC Atus, 8$ : : 
0000v CF SF 00040 28: PUSHAB + 1162 F 
08 AE 9F 00044 PUSHAB INDEX : ; 
0000' CF 9F 00047 PUSHAB LIB_CONTROL_INDEX : : 
00006 CF 03 FB 00048 CALLS #3, LBRSGET— INDEX : ; 
59 50 €9 90090 3$: BLBC STATUS, 8$ : : 
56 DD 0005 PUSHL R : 1164 3 
04 Abd OF 90055 PUSHAB 4(R6) : : 
0000' CF 9F 00058 PUSHAB LOCAL DCX_CONTEXT ; : 
0000G OF 03 FB 0005C CALLS #3, @BCX_MAKE_MAP : 3 
6E 50 DO 00061 MOVL » OK : : 
000000006 8F 6F Dt 00064 CPL OK; #DCX$_AGAIN : : 
03 of 58 0006D BLBS OK, 5$ : 1166 : 
00E5 31 00070 4$: BRW 18 : : 
0000' CF 9F 00073 S$: PUSHAB LOCAL_DCX_CONTEXT : 1168 : 
0000G OF 9} 4} 0007 CALLS #1, @BCX_ANALYZE_DONE 3 3 
Fl 0 EB gore BLBS STATUS, &$ F : 
50 00006 CF 09 9080 6$: MOVL LBRSGL_CONTROL , RO > 1187 : 
0 0A AO 00 00 MOVL (RO); HEADER ; : 
58 008¢ CO DO 90089 MOVL 140(HEADER), MAPVBN > 1188 : 
51 € AE 9E 0008 MOVAB BLOCK_ADDR, R1 : 1189 | : 
50 58 p 009 MOVL MAPVBA, R ; : 
00006 909 BSBW READ BLOCK ; : 
11 50 9 98 7$: BLBC = STATOS : : 
51 08 AE ; 0098 MOVAB MAP POINTER, Ri : 1190 : 
52 C AE D oF MOVL BLOCK_ADDR, R2 : 3 
66 62 DO O00A3 MOVL  (R2),~(R6) : : 
50 6 p Ong MOVL  (R6). RO : | : 
00006 A BSBW GET MEM : | : 
74 50 £9 OOOAC 8$: BLBC STATUS, 14$ ; | : 
50 08 AE DO OOOAF MOVL § MAP_POINTER, MAP_BEGIN : sh ; 
| 
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LBR_OPENCLOSE ibese =1984 02:01:2 AX-11 Bliss-32 V4.0-74 
Spe 008 LBRSDCX_MAP aaa 1 95:9) 328 YRBR. SRE OPENCLOSE .832; 
i ss 38 g0ggEgS- rater 
000001FC F $9 D} 53 cMPL RO. #508 
50 O1FC rf : 2 MOVZWL #508, RO 
0 Dd C? 9$: MOVL RO, MAP_MOVED 
51 08 AE DO OOOCA MOVL §§ MAP_POIRTER, R1 
04 Ag p C MOVL. 1, (RG) 
61 046 =A 0 D MOVC RO 4(R2), (R1) 
0 66 00000200 aF s D DIVLS #542, (R65, RO 
7E 90 £6 1 7A O00DF EMUL #1, (R6), #0, -(SP) 
51 1 BE 00000200 BF 7 OOE4 EDIV #542, (SP)+,'°R1, R1 
1 D ED TSTL = RV 
5 15 OOOEF BLEQ 108 
51 1 pO OOOF1 MOVL #i, R1 
2 11 000F4 BRB 11§ 
1 04 O0F6 10$: CLRL_ a1 
57 50 1 ci 00F8 11$:  ADDL3 1, RO, MAP_BLOCKS 
56 FF OAT § OOF MOVAB <-1(R7), BLOCKS_LEFT 
4F 15 001 BLEQ 17$ 
5B 06 001 INCL § MAPVBN 
SA 08 CE 001 MNEGL #8, I 
42 11 00107 BRB 16$ 
50 56 00 00109 12$:  MOVL BLOCKS_LEFT, RO 
OA 50 01 BoC CMPL RO, #10 
03 15 0010F BLEG =-:«138 
50 OA 00 00111 MOVL #10, RO 
52 50 00 00114 13$:  MOVL RO, BLOCKS_READ 
50 DD 00117 PUSHL 
10 AE 9F 00119 PUSHAB BLOCK_ADDR 
38 DD 0011¢ PUSHL 
0000v CF 03 FB OO11E CALLS #3, READ_N_MAP_BLOCKS 
35 50 €9 00123 14$:  BLBC STATUS, 
58 3g CO 00126 ADDL2 BLOCKS READ, MAPVBN 
08 AE 59 CO 00129 ADDL2 MAP_MOVED, MAP_POINTER 
58 59 C2 00120 SUBL P™MOVED, L 
56 52 C2 00130 SUBL BLOCKS READ, BCOCKS_LEFT 
52 52 09 78 00133 ASHL #9, R2, R 
50 58 D0 91 7 MOVL  MAP_LEFT, RO 
52 50 01 0013A CMPL 0,~R2 
g 15 0013p BLEG )3~—s«éd5$ 
50 D0 001 F MOVL R2, RO 
59 5 00 O142 15$:  MOVL_ RO, MAP_MOVED 
08 BE 0c Be 29 2 ‘th MOVC3 RO, @BLOCK_ADDR, @MAP_POINTER 
FFBS A A F1 00148 168: ACBL MAP BLOCKS; #10. I, 128 
of 000000006 8F DO O19! 17$:  MOVL  #DCRS$_NORMAL, OK 
6E 00 00158 18$: MOVL OK, RO 
04 00158 19$: RET 


; Routine Size: 348 bytes, Routine Base: $CODES + 0076 
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F 
16 
14 


LBR_OPENCLOSE “$ 
vO0=008 LORSDCX_MAP -§ 


GESF 


keydesc : REF BBLOCK Cdsc$c_s_binj; 
LOCAL 
rms_status 
header : BBLOCK ibrsc_pagesized, 
bufdesc: BBLOCK [dsc$c_s_binj; 


rms_perform( Lbr$find ( Lib_control_index, .modrfa)); 


bufdesc pascSa_petnter = header; 
bufdesc qects 5088) = dsc$k_class_d; 
WHILE (bufdesc 

fee status = lbr$get_record ( 


dsc$w_length]”= LbrSc_pa esize; 
a -rms_status AND (.rms_statis NEQ rms$_eof 


BEGIN 
SIGNAL (.rms_status); 
aaa 


-rms_status NEQ rms$_eof ) 


0 
(.dcx_analyze_data) (local_dcx_context, bufdesc); 


Se Se Ge Se Se Se Se Oe Ge Ge Se Be Os Se Se Se Se SF Se SH Se Se Se Se Ge Se Se Se Se Oe ee Ge Fe Se Se ee ese 
Fy at af ot at at ot at at at at at ot UNUM NMMHHNnNUMaa ee 

WAI MNAI AIR PONININININPUNININ 2 OS es rao bien 

MEUM —O OONOUESWA)—“OOONOULSWN oO 

SWIM" OOONA NEW O OONAUE WN COONS Wh — 


DV BS BS BBE EEE PW 


RETURN true 
END; 
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ep-19be 15:97:45 


ees 
' 
i 
: is generated a new library. Every record of the module 
is read, and analyzed by DCX. 
& 
3 
4 
4 
| 
1 


ae Bliss-32 PEt etd 
LBR.SRCJOPENCLOSE .832; 


399 18 1 GLOBAL ROUTINE dcex_it (keydesc, modrfa) = 

400 18 3 SEEN . : 

: 1 0 

208 This routine is called for every module when a DCX ma 
405 


_control_index, bufdesc, bufdesc ); 


DCX_IT, Save R2 
Me OtSh) SP 
MODRFA 

L 18_CONTROL INDEX 
#2, LBRSF IND 
STATUS, 

HEADER BUF DESC +4 
#2, BUFDESC+ 
{2 BUF DESC 


BUF DESC 
LIB_CONTROL_ INDEX 
#5, LBRSGET RECORD 


RO, RMS_STATUS 
RMS_STATUS, 33 


aa 0 


: th es 
own 


LBR_OPENCLOSE 
v00=000 LBRSDCX_MAP 


0001827A 8F 


“1 AX-11 Bliss-32 V4.0-7 
-19 382 93: $F: 3 LBR.SRCJOPENCLOSE. B32: 
CHPL —-RNS_STATUS, #98938 
RMS_STATUS 
CALLS #1, LIBSSIGNAL 
RMS _STATUS, #98938 


000000006 00 
0001827A = BF 


_—Oo— TO 


2 4 
fo] TOW WOw 


2 
; 


oeccveuisovom 
UVRODNWIWO SW —— 
nm 
o 
o 
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v 
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OOOOOCOOCOOOooooO 
DADDIES & EP 


COOOOCOOOoOoOoOoCoOoO 


PUSHL SP 
0000' PUSHAB L CAL_DCX_CONTEXT 
0000G oF CALLS » @BCX_ANALYZE_DATA 
50 3$: MOVL » RO 
4$: RET 


Routine Size: 102 bytes, Routine Base: S$CODE$S + 0102 


LOR -DPRNCLOSE 


Sure pie nino 


et | 
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tb tert whet 4 


; Routine Size: 


LBRSLOAD_DCX 


BITL *LBRSLOAD DCX’; 
ooat ROUTINE LBr$load_dcx = 


lo 


dcxshr_desc 


perform ( LibSadr_image(dcxshr_desc,default_desc, dcxshr_address)); 


i 5 
i Loop — 


+ 
FUNCTIONAL DESCRIPTION: 
Load DCXSHR and relocate entry points by the base address. 


nd 
dcx_address_table = dcx_analyze_init; 


cal 
dcxshr_desc: block Cdsc$c_s_bln,b 
defaul€_desc: block 


Geanubr Gooch coceu..Lengen2 = .dcxshr_string<0,8>; 
dsc$a_pointer] = dcxshr_strin 
defaul€_desc(dsc$w_length] = .default_str 
default_descldsc$a_pointer] = default_string+!; 


return true; 


end; 


64 bytes, 


5E 

0&6 AE 
Oc AE 
6E 

04 AE 
00006 CF 
11 
OOO0GCF40 
50 

50 


Routine Base: 


ISHN BOGE Madea? 


LBR.SRCJOPENCLO 


o<= 


! set up filename descriptor 
and default filename descriptor 


! map image and return base address 
h the address table of dcx routines called by lLbrshr and relocate them 


y the base address of DCXSHR 


incr i to (mum_dcx_routines-1) do 


ca_addressS_table + (4 * .i) = .(dcx_address_table + (4 * .i)) + .dcxshr_address; 


oO 
o 


SOV MOMMNOOOOOOONS 


FOWOCL ODM "MOMDVO 
Sans 


——— 


DWOwonae— 
o 
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<a 


DCXSHR BESC 
#3, LIBSADR_IMAGE 
STATUS, 2$ 


_ 
bad 


DCXSHR_ADDRESS, DCX_ADDRESS_TABLELI] 
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LBRSOPEN 132800-1 384 93:9) :28 LBR.SRCJOPENCLOSE .B32; BF 
7 1 XSBTTL ‘LBRSOPEN'; 
8 1 GLOBAL ROUTINE lbr$open (control_index, fns, create_options, dns, rifna, 
82 1 rns, rnslen, dcx_map_desc) = 


BEGIN 
le 
FUNCTIONAL DESCRIPTION: | 
This routine opens an existing Library for reading or updating, | 
or creates a new library. This routine must be called before 
any other Library access procedures except LBRSINI_CONTROL. 
CALLING SEQUENCE: 


status = LBRSOPEN (control nnd pe fata create_options, dns, 


rlfna, rns, rnslen 
INPUT PARAMETERS: 


control_index is the address of a longword containing the 
index returned from LBRSINI_CONTROL 


dns is the address of a string descriptor for the 
default filename ete ing. 
fns is the address of a string descriptor for the 
filename string. 
rlfna is the address of a NAM block for the related 
e. 
rns is the address of a string descriptor for the 


resultant name string. : 
create_options is the address of an array of create options. 
This erguasat is needed only if the function 
is LBRSC_CREATE. 
OUTPUT PARAMETERS: 


rnslen is the address of a longword to return the 
length of the resultant name string. 


The specified Library is opened. The library header is 
read into memory (or constructed if creating the library). 
The default index is set to index 0. 


MIMIMINIMNININININIDN 4 2 2 2 | SQOODTOOOOCOCOCOVOOOOOOOO 


WN 20 OONOAUE WN 0 OONAUES WN —$ O OONOAUES WN (OVO NAUS WHO CONOUS WN 


If there is an error while qoening the Library, the expanded 
e 
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Pr te te ee eee ee ee 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 
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1 
1 
1 
1 
1 
1 
1 
1 
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1 
1 
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1 
1 


; name string will be returned, rather than the resultant name. 
; ROUTINE VALUE: 
3 Lbr$_ill fmt illegal format in Library 
lLbr$_ill func illegal function 
lLbr$_illctl illegal control table 
lbr$_illcreopt illegal create options 
3 Lor$_libopn library already open 
3 Lor$_typmismch 4 torery type does not match requested type 
4 LibS_insvirmem insufficient virtual memory 
r Lib$_badblosiz bad block size 
4 
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VO4=000"-  LARSOPEN JESepctgae $5:0h:28 YAGI elsssid?¥-052 ae 


BUILTIN 


me NULLPARAMETER; ! True if parameter omitted 
Gen _nep desc : REF VECTOR, 
dns-: REF BBLOCK Fgsc$c_s_bin}, ! Pointer to string descriptor 
fns : REF BBLOCK Ldsc$c_s_binJ, ! Pointer to string descriptor 
rlfna : REF BBLOCK, ! Pointer to NAM bloc 
rns : REF BBLOCK Cdsc$c_s_bin], ! Pointer to string descriptor 
— create_options : REF SBCOCK; ! and the create options 


event flag, 
lbrfaBb : BBLOCK Cfab$c_binJ ! Aliocate a FAB to ogen Library 
recrab : REF BBLOCK rabgc_bin}, ! Pointer to record 1/0 RAB 

n ° 


4 Lornam : REF BBLOCK ECnam$c_blnJ, ! Pointer to NAM block 

4 status, 

4 return_status, 

4 blksiz, 

4 retries, 

4 one_second : VECTOR (2), 

4 hdradr, 

4 context : REF BBLOCK, ! Pointer to context block 

: header : REF BBLOCK; ! Pointer to header block 

5 lbr$gl_rmsstv = 0; 

5 status = validate ctl (..control_index); !Validate the control block 

5 IF NOT .status AND .status NEQ LBr$_Libnotopn !If failed and not becuase Library 
H THEN RETURN .status; ‘then its really bad, so return error 
5 IF alorsal control Clbr$v_open] 'If library already open 

2 THEN RETURN Lbr$_Libopn; ! then return an error 

5 

5 


fF 3 Orel _contret Clor$b_func] EQL Lbr$c_create 


BEGIN 

IF NULLPARAMETER (3) ! Options required on create 

THEN RETURN net PLA es 1 ! return error if not 

IF (.create_options (cre tkeylen} GTR lbr$c_maxkeylen) OR 
(.create_options (Ccre$l_lu tye} GTR Lbr$c_maxlunhrec) OR 


co IN > AAASAAAOS BWANA AAMAANIOINS 


(.create_options ([cre$l_vertyp] LSS 0) OR 
(.create_options (cre$l_vertyp] GIR cre$c_vmsv3) 
THEN RETURN Lbr$_illcreopt; ! return error if not 


“allocate and initialize the internal context area 


io 


erform (get_zmem (ctx$c_length, lbr$gl_control Clbr$l_ctxptrJ)); 
Allocate a RAB and NAM block to open the file. 


WOO OO 0600909 09 09 09 09 09 09 09 SI NIN SI SINS SID AAA A AAA A MMIII EE EE 


SSS VSS REN SS SSA RAN AS SONO AKIN ODO WHA Powe > Oo0 Wo Ad O00 Oe 


us = get_zmem (rab$c_bln+nam$c_bln, recrab); 

OT .status ! If not enough memory, 
BEGIN 

lbr_deal_mem (..control_index); ! Deallocate everything 
om .Status; ! and return with error 


i Initialize the FAB, RAB, and NAM blocks 


Ay tal ab ab sh sb sh sb db Abedh ab dh ab dh ab ab dh db db ab ab-db-dh Ab db Ab Ab edAb ab ah ah Abedh ab ab ah sh sh ab ab al al alta alealeal eles eles lea lee ww, | 
a ee ee a ee ee ee ee ce a ee ee a ee ee a ee el ae me a el ae a ee a ee ed ed a ad aed ed 


SWANN AAA AANA AA AAAA AA NAANA ANA AWWW 


ooono 


LOR PRRNCLOSE 


LBRSOPEN 


K 9 
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; 584 1401 ! 

3 ss 1498 context = ; UbrSgl control Clor$l_ctxptrd; ! Point to the context block 
3 2 140 context Cctx$l_recrab] = .recrab; ! Save record 1/0 RAB address 
: tf abe ornee = .Ubr$gl_control Clor$l_usrnam]) EQL 0 !If no user-supplied NAM block 
: 589 1406 lbrnam = .recrab + rab$c_bln; 'then use ours 

; 590 14 Lbr$gl_control Clbr$l_usfnam) = .Lbrnam; 

; 591 1408 Lbrnam fran b_blnJ = nam$c_bin; j ident tty the NAM block 

3 85 1409 Lornam [nam$b_bid] = nam$c_bid; 'As a NAM block 

: 384 ett is: 

: 595 141 CHSFILL (0, fab$c_bin, Lbrfab) 'Zero the FAB 

; 338 1218 (brfab Cfab$b_bin] = fab$c_bLn ifdenti fy it as a fab with the length 
3; 1414 lbrfab Cfab$b_bid] = fab$c_bid ‘An 

; 598 1415 lorfab Cfab$v_bio] = true; 'Set for block 1/0 

; 599 \eig lorfab Cfab$v_get] = true; 'Set to allow SREADs 

: 600 141 IF .lbr$gl_control ptbrsb..func EQL Lbr$c_create !If creating 

3 ret 1018 Fred hr eet neneres lLor$b_func] EQL Lbr$c_update ‘'or updating 

: 60 14 lorfab Cfab$v_put] = true ‘then we will do $WRITEs also 

; 604 1421 ELSE 

: rt 9 ¢ context Cctx$v_ronly] = true; ! otherwise flag read only file 

: 607 1424 lorfab Cfab$w_mrs] = Lbr$c_pagesize; 'Set the maximum record size 

3 o38 3 ? lorfab Cfab$Sb_rfm] = fab$c_fix; 'Set fixed record format 

; 219 1437 eae Cnam$w_fid_num] NEQ 0 ! Was filled-in NAM block passed 

; 612 1489 lLbrfab Cfab$v_nam) = true ! yes--use it 

: gi 123) ’ BEGIN 

; 615 1338 IF NOT NULLPARAMETER (2) ! Otherwise, did we get an FNS? 
| ee 

; 618 1435 4 lbrfab Cfab$b_fns] = .fns Cdsc$w_length]; ! Set file name string 

> 619 1436 4 IF .lbrfab Cfab$b_fnsJ_NEQ 0 

3 620 yt 14 : wen lbrfab Cfab$T_fna] = .fns Cdsc$a_pointer); 

: 62 1439 3 ELSE ! Has there been a previous open over the net 
s ¢e 1440 4 ! i.e. no fid_num but nam filled in. 
3 ose 16) ? iF gvbrnen Cnam$b_rsl] NEQ 0 

; 626 1203 § BEGIN 

; 627 1444 2 lbrfab Cfab$b_fns] = .lbrnam Cnam$b_rsl]; 

3 ? ; ioe? : lorfab Cfab$l_fnaj = .lbrnam [nam$l_rsal; 

; 630 1249 2 ELSE 

; 631 1448 5 BEGIN ! No, that is an error 

; O36 1449 5 lbr_deal_mem (..control_index); ! Deallocate all memory 

3 $3 1450 5 RETORN LBr$_nofilnam; 

> 634 1451 4 END; 

3; 635 1436 END; 

: 839 1284 — 

; 638 1455 2 IF NOT NULLPARAMETER (4) ! Set default name string 

3; 639 1608 THEN BEG] 

3; 640 145 lobrfab Cfab$b_dns] = .dns Cdsc$w_length]; 


LBR_OPENCLOSE 
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IF .lorfab Cfab$b_dns) NEQ 0 
pen lorfab Cfab$T_dna] = .dns Cdsc$a_pointer); 
Ay NULLPARAMETER (5) ! Related filename block arg present? 
begin 
[ppnee Cnam$l_rlf] = .rlfna; 
lbrfabCfab$v_fiam) = true; 
end; 
lorfab Cfab$l_nam) = .Lbrnam; 'Point to the NAM block 
Fe preg control Clbr$b_func] EQL lLbr$c_create !If creating the file 
lorfab Cfab$v_cbt] = true; 'Set contiguous best ery 
lbrfab Cfab$v_ofp] = true ! Set ournyt file parse bit 
a fab$l- “siai = .create options Ccre$l alloc); Set initial cs lacetton 
recrab Crab$b_bln] = rab$c_bin; ‘Identify the RAB 
recrab Crab$b_bid] = rab$c_bid; ‘with length and ID 
recrab Crab$l_fab] = Lbrfab; 'Set pointer to FAB 
recrab [rab$v_locJ = true; 'Set locate mode 
recrab Crab$v_bio] = true; 'Set for block 1/0 only 
IF NOT NULLPARAMETER (6) 'If result osrae arg present 
La AS aaa nam$b_rss] = .rns Cdsc$w_length]) NEQ 0 


Lbrnam Cnam$b_ess] = .rns Cdsc$w_length]; ! Copy to expanded name area 
Lbrnam Cnam$l"rsa] = .rns Cdsc$a “pointerd; i so that error messages will 
Lornam Cnam$l"esa] = .rns Cdsc$a_pointer); i have the right information 


Open the Library, and connect the record stream. 
( status = Lib$Sget_ef( event_flag )) ! if we can find an unused event flag 


status = (IF THN SEREATE. (PAB = Corfab) EQL Lbr$c_create 
rfab 


ghee ok = Lpage "SEABSREBS «1c Set max. number of retries 


one_second = =-(10« 000*lLbr$c_retrywait); ! Set one second wait 
one_ second ; = 
WHICE (status = sopin (FAB = Lbrfab)) EQL rms$_ flk ! while file is locked 
- AND .retries GTR 0 1 and we can still retry 
BEGIN 
retries = .retries - ' count a retry 
SSETIMR (EFN = event _— DAYTIM = one_second); ' Set timer for a second 
= (EFN = .event_flag ); i And wait for it 
LibSfree ef( event_flag ); ' release our event flag 
1 i Return the status 


: Return result name string if an error occurred. 


— rrr 


LBR_OPENCLOSE 
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ULLPARAMETER (7) 'Returning length of resultant name string? 
ernslen = .lbrnam Cnam$b_rsl]) EQL 0 

IF (.rnslen = .lbrnam Cnam$b_eslJ) EQ. 0 

THEN BEGIN 

ernslen = .lbrfab Cfabse. tnsd: 

CHSMOVE (MIN (.rns Cdsc$w 

“e -lbrfab Cfab$T_fna 


' 
If error occurred, then give up 


IF NOT .status ! If the open or create failed 
THEN BEGIN 
ag i ey = .lbrfab Cfab$l_stv); ! Return STV on error 
lbr_ deal_mem (..control_index); '‘Deallocate memory 
Be TORN -Status; ‘Return the OPEN status 


zz 
a 


, ofns Cdsc$a_pointer]); 


Connect the record stream. 


ext Cctx$w_ifi] = .lbrfab Cfab$w_ifil; 'Save IFI for close 

OT (status = SCONNECT (RAB = .recrab)) 'Connect the record stream 

BEGIN ‘and if that fails 

Lbr$gl_rmsstv = .recrab Crab$l_stv); ‘then return stv 

lbr$close (.control_index); ‘then close the file (which 
' deallocates alt memory) 

Ae -Status ! return with error 


text Cctx$w_isi] = .recréb Crab$w_isil; 'Save ISI 
$gl_control Clor$l_curidx] = 1; 'Set current index to 1 


z22- 


os I 


Allocate a cache hash table 


C 

l 

1 

' 

: 

perform (get_zmem (lbr$c_hashsize, context Cctx$l_cache])); 
return_status = lbr$_normal; 'Set to return normal status 
If create, initialize memory resident header block. 

I 
T 


Lobr$gl_control Clbr$b_func] EQL Lbr$c_create 


hdrnxtrfa : REF BBLOCK; 
‘ Allocate Library header block 


status = get_zmem (Lor$c_pagesize, lbr$gl_control Clor$l_hdrptr]); 
o td -status '“If error occurred, 


BEGIN 
lbr$close (.control_index); ' close the Library 
RETURN .status; ! and return if error 


header = .lbr$gl_control Clbr$l_hdrptr]; ! Point at the header 
hdrnxtrfa = header Clhd$b_nextrfal; ! End of Library RFA 


Length). -lbrfab Cfab$b_fnsJ), 'Bad error, so copy file name into r 


VOeseO  e  LeRSOPEN 18-00-16 1h ee Re sENerote Ssoc7 met 


; 3 1328 header ([lhd$b_type] = .create options Ccre$l_typel; : 
2 § 157 header [Lhd$b_n ndex] = .create_options Ccre$l_ idxmax] ; : 
, 1574 header (\hd$w-majorid] = (hd$c_majorid; i Set Library format level | : 
; 758 1575 header Clhd$w-minorid] = lhd$c-minorid; ; 
; 759 1326 header [lhd$b_mhdusz) = .create wopt ions Ccre$l_uhdmax); > 
; 760 1577 4 header Clhd$l-sanity] = (IF .créate_options Ccre$l_vertyp] EQL cre$c_vmsv2 : 
; 761 1578 4 THEN Lhd$c_Saneid ’ 
; 1579 ELSE Lhd$c_saneid3): * 
3 re? 1380 header Clhd$w_maxluhrec] = .create_options crest. luhmax]; ! set maximum number of Library update histor : 
3 £09 1286 ; } Preallocate index blocks and, if /COMPRESS=REDUCE, cache map blocks : 
; 76 13g 4 IF NOT (status = prealloc_index (.header, .create_options)) : 
: 768 1585 4 THEN BEGIN : 
; 769 1586 4 lbr$close (.control_index); ; 
: rey et 4 AL Status; ‘ 
s fe 1589 3 ienrie farts vbn] = ce ree Clhd$l_nextvbn); a Set next available VBN ; 
3; 773 1590 3 parent te rfa$w_offse and offset ° 
3; 774 1591 3 CHSMOVE ( - lbrSgt_ leryee Toad, Lbr$gt_ lbrver, ! det iverion version : 
3 775 1336 3 header Clhd$t_lbrver]); ; 
; gre 133) 3 SGETTIM (TIMADR = header CUhdst _credat]); ! Get creation date/time : 
: 778 1595 3 Initialize all index descriptors ; 
3; 779 1596 3 ! . : 
; 780 1597 ; INCR i FROM 1 TO .header Clhd$b_nindex] ! Do all descriptors ; 
s ei 1598 DO : 
3 82 1599 4 BEGIN : 
s Yes 1600 4 BIND “ 
3; «784 1601 4 index desc = header Clhd$c_idxdesc-idd$c_length,0,0,0): ; 
3 f ? 1606 ? BCOCKVECTOR C,idd$c_length, BYTE); : 
; 787 1604 4 index_desc C.i, idd$w_flags] = vgert {lage to : 
; 788 1605 4 IF .create_options Ccre$l eel NEO 6 If ASCII eae : 
3; «6789 1606 4 THEN : 
: 790 1607 5 BEGIN ; 
; 791 1608 5 index_desc C.i, idd$v_ascii] = true; ! Set to ASCII keys . 
s 79 1609 5 IF (.Create _opti ons berest. vertyp) } EaL 0) OR : 
; 7 1610 6 (.create_options Ccre$i_vertyp) GEQ cre$c_vmsv3) ; 
: 794 1611 5 HE ; 
3; «4795 + a 6 EGIN : 
3; 796 1613 6 index_desc fi -i, idd$v_varlenidx] = true; ! Set to variable length ASCII keys 3 
3; 797 1614 6 index_desc idd$v_nocasecmp) = } pouls — keyword : 
; 798 1615 6 -create contions® Ctresv grocagecap); ' b veces : 
3; 799 1616 6 index_desc [ nhocasentr ; shou d laden entry be upcased | : 
: 800 1617 6 -create options tre$v -nocasentr); ! when compared with match keyword. 3 
; 801 1618 6 index_desc [.i, idd$v_upcasntry] = ' should the index entry be : 
5 HS 101? g “ -create_options (tre$v “upcasntry); ! upcased when entered. : 
: aoe 1834 : index_desc C.i, idd$Sw_keylen] = .create_options Ccre$l_keylen] + 1; ! (+1 for count byte) | : 
Py } e 
; 806 16 4 3 
: Boe 1624 4 index_desc C.i, idd$w keylen] = 4; ! Set to binary keys 3 
: 808 1625 4 index_desc C.i, idd$l_vbnJ = 0; ' Set no index yet | 3 
: 809 1626 END; 3 
: 810 1627 3 
; «811 1628 header(lhd$l_dcxmapvbn]) = 0; F 
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; 3 16 8 

3; 8 16 IF NOT NULLPARAMETER(8) 

; 814 1631 THEN 

; 815 16 ¢ 4 BEGIN 

H 1 16 4 BIND 

: 81 1634 4 dcex_rec_desc = context(ctx$l_dcexrecdsc] : BBLOCKCdsc$c_s_blnJ; 
; 8 1635 4 LOCAL 

3 «(8 16 § 4 map_begin. 

3 : 0 16 4 map_offset, 

3 1 1638 4 map_len, 

3 § ¢ 1639 4 map_blocks, 

3; & 1640 4 newvbn, 

; 824 1641 4 newvbnadr, 

; 825 1006 4 

; 826 1645 4 cache_entry : REF BBLOCK; 

; 827 1644 4 

; 828 1645 4 if .dexshr_address eql 0 

3 4 1646 4 then 

; 830 1647 4 perform ( Lbr$load_dcex()); 

: 32 1669 begin = .dex_map_dese{1] 

3 map_begin = .dcx_map_desc(1]; 

; 833 1650 4 map_offset = 0; - 

3; 834 1651 4 map_len = .dcx_map_desc(0] + 4; 

; 835 1996 4 

; 836 16535 4 map_blocks = .map_len / Lbr$c_pagesize + 

: 837 1654 5 (IF (map Ten MOD Lbr$c_pagesize) GTR 0 
; 838 1655 4 THEN 1 ELSE 0); 

3 Sy 1656 4 

3; 840 1657 4 INCR i FROM 1 TO .map_blocks DO 

: 841 1658 5 B 

; «84 1659 5 IF .map_len GTR Lbr$c_pagesize 

; «84 1660 5 THEN 

3; 844 1661 5 map_len = Lbr$c_pagesize; 

3; 845 1996 5 performTal loc_blocktnewvbn,newvbnadr)); 

> 846 1665 5 add_cache(.newvbn,cache_entry); 

; 847 1664 5 cache_entry cache$l_address) = .newvbnadr; 
; 848 1665 5 cache_entry(cache$v_data] = true; 

3; 849 1666 5 cache entry cachoty dirty? = true; 

; 850 1667 5 IF .header(lhd$l_dcxmapvbn] EQL 0 

; 851 1668 5 THEN 

: a26 1669 6 BEGIN 

; 85 1670 6 enewvbnadr = .dcx_map_desc(0]; | 

3; 854 1671 6 IF .map_len + 4 GTR “lbr$c_pagesize 

; 855 1676 6 THEN 

3: 856 1675 6 map len = .map_len_- 4; 

: 857 1674 6 header(Thd$l_dcxmapvbn] = .newvbn; 

; 858 1675 g newvbnadr = .newvbnadr + 4; 

; 859 1676 3 

; 860 1677 é 

; 861 1078 CHSMOVE (.map_len, .map_begin + .map_offset, .newvbnadr); 
3 $ 1679 5 map_offset = <map_offseft + .map_len ; 

; 86 1680 ; map-len = .dcx_map_descl0] - .map_offset; 
; 5 1086 4 perform((.dcx_compress_init) (contextCctx$l_dexctx), dcx_map_desc(1])); 
; 66 16 4 context(ctx$l_dcxmapdsc] = .dcx_map_desc; 

: 168% 4 dcx_rec_desc(dsc$b_dtype) = dscSk_dfype_t; 

; 868 1685 4 dcx_rec_descldsc$b_class] = dsc$k_class_s; 
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per torm(get_nen(lbr_dcxSe_searecsiz, dcx_rec_desc(dsc$a_pointer])); 
END 


If open, read the Library header from disk. 
SE 
BEGIN 
status = read_block (1, Lbr$gl_control Clbr$l_hdrptrJ); ! Read block 1 of file 
IF NOT .status ! If error reading block, 
THEN BEGIN ‘ 
Lor$close (.control_index); ! Close the file 
Ngee -Status; ! and return with error 


header = .lbr$gl_control Clbr$l_hdrptr]; 


IF (,header Clhd$l_sanity]_NEQ Lhd$c_saneid) AND ! If not valid header, 
(. header thdst_sanity) NEQ Lhd$¢_saneid3) AND 
ee atten” Uhd$l_sanity] NEQ Lhd$c_saneidc) 
IF shooter Cohd$b_fmtlvl] EQL of l$Sc_fmtlvl ! Is it an old format Library? 


header Cohd$b_type] = .header Cohd$b typed + 1; ! Adjust 
T Library type to map 
! into new forma 


t 
lbr_old_lib_dat Old format--extract information 


(,header); ! 
context Ccetx$v_oldlib] = true; ! Flag old format Library 
lbr$gl_control Clbr$b_func] = Lbr$c_read; ! Only read access allowed 
feturn_stetus = lbr$_oldlibrary; ! Set return status 
ELSE BEGIN 
lLbr$close (.control_index); ! Close the file 
~ Sg Lbr$_illfmt; ! return illegal format file 
END; 


IF .lbr$gl_control Clorsb_type) NEQ 0 ! If user spec iited type. 
AND .header Clhd$b_type) NEQ .lbr$gl_control Clbr$b_type 

THEN BEGIN 
IF .return_status EQL lLbr$_normal 
THEN return_status = lbr$ typaisach ! return type mismatch 
ELSE IF .return_status EQC lor$_oldlibrary 
THEN return_status = bes gent Enc; 
lbr$gl_control Clbr$b_type] = .header Clhd$b_type); 


IF bs Clhd$w_closerror] THEN return_status = lLbr$_errclose; 
if ,hooderl (hdSl dcxmepvbn) NEQ 0 AND NULLPARAMETER(8) 
ay 
dcx_rec_desc = context(ctx$l_dcxrecdsc] : BBLOCK Cdsc$c_s_bln]; 
if .dcxshr_address eql 0 


en 
perform( lbr$load_dcx()); 
perform(get_mem(dsc$c_s_bln, context(ctx$l_dcxmapdsc])); 
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| 
LBR_OPENCLOSE 16-Sep-1984 02:01: AX-11 Bliss-32 V4.0-74 Page 23) 
voc LBRSOPEN 14-Sep-19 4 95:93:28 LBR.SRC OPENcLose 183004 ° id 
3 g $ 1763 ; perform(lbr$dcx_map(0, .context(ctx$l_dcexmapdsc])); 
: 928 1745 4 IF_.lbr$gl_control{lbr$b_func] EQL Lbr$c_read | 
: 959 1748 4 THEN. ‘ * | 
; 930 1747 4 1 If we are reading the DCX-encoded library tell DCX that we | 
; 93) 1748 4 ! will be “‘expanding’’ and allocate a buffer for the eventually 
3 9 ¢ 1749 & ! returned records: 
; 9 1750 4 ! 
3; ¥ 1751 BEGIN 
3 939 P 17 ¢ perform((.dcx_expand_init) 
; ¥ 175 (ContextCctx$l_dexctx], econtentts tx0) Sennegds J+4)); 
3 83 1728 Ferrer at gen JemA LETTS, AORFUSEE dcx_rec_descldsc$a_pointerJ)); 
; 9 1755 ND 
; 939 1728 
: 940 1757 4 ELSE 
: 941 1758 4 : If we are writing into the DCX-encoded Library tell DCX that we 
; org 1759 4 ! will be “‘compressing’’ and allocate a buffer for the ‘‘reduced’’ 
; 94 1760 4 ! records: 
> 944 1761 4 : 
> 945 1706 5 GIN 
; 946 P1763 5 perform((.dcx_compress_init) 
; 947 1764 : (ContextCcEx$l_dexctx], .contextC(ctx$l_dcxmapdscJ+4)); 
> 948 1765 por vormtgut pant thr Scene Searetsis. dex_rec_descldsc$a_pointerJ)); 
; 949 1766 4 ND; 
; 950 1767 4 
3 951 1768 4 dcx_rec_denctdsc3b_dtype = dsc$k_dtype_t; 
$ He 1769 4 dcx_rec_descl(dsc$b_class] = dsc$k_class_s; 
3; WP 1770 3 : 
3; 954 1771 § END; 
; 955 ere IF .headerClhd$l_dcxmapvbn] NEQ 0 ! If this is a DCX data-reduced 
; 956 177 THEN ! Lib, assign new sanity id 
: 957 1774 header(lhd$l_sanity] = Lhd$c_saneidc; , 
$ 228 Vir? Lbr$gl_rmsstv = .header Clhd$b_typel; ‘Return type of Library opened 
; 960 1777 : Mark file open successfully. 
; 961 1778 : 
3 208 1779 IF (prey. manress EQL 0 ! Max read Length known? 
; 96 1780 THEN BEGIN 
: 964 1781 SADJWSL (WSETLM = blksiz); ! Get working set Limit ; | 
; 965 17e¢ spree, soured = MIN (.blksiz - lbr$c_maxread, Lbr$c_maxread); ! Determine max number blocks to rea) 
; 966 178 IF .lbr$gl_maxread LSS lLbr$c_minread ‘but if too small 
; 967 1784 THEN LBr$gl_maxread = Lbr$c_minread; ! then use the minimum 
; 968 1785 IF .lbrnam Cnam$v_node ! If opening across network 
3 9 1736 THEN Lbr$gl_maxread = Lbr$c_minread; ! then reduce to minimum ; 
; 970 17 sont) neneep 2 Lor sot nenrend + Lbr$c_memxtra; ! Allow extra pages on expand region 
3 8 1788 ponts ment = .mem$(_memexp * lbr$c_pagesize; ! Set size of largest request 
3 87 1790 IF . Lbr$gl_controlt tprsb. func) EQL Lbr$c_update !If function is update 
; 974 1791 OR .lbr$gl_control Clor$b_func] EQL lbr$c_create ! or create 
3; 975 1736 THEN 
; 97 179 BEGIN 
; oT 1794 OCAL | 
3 44 17? oldheader : REF BBLOCK; | 
; 980 179 SGETTIM (TIMADR = header Clhd$l_updtim]); !Then get update time 
; 3H 18 context Cctx$v_hdrdirty] = true; ‘and mark header as dirty 
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.EXTRN SYSSCREATE, SYSSOPEN 
“EXTRN SYSSSETIMR, SYSSWAITFR 
“EXTRN SYSSCONNECT, SYS$GE(TI 
“EXTRN SYSSADJWSL 


| 
; 983 1 ! $tore unmodified header block in sore with he diddle bit set. 
; 9 1 \ Before initating a write to the Library, original header will 
; 985 1 § : be written out. If the update is unsuccessful, the header will 
; 3 1806 : record the failure. 
3 : 
3; » 1805 status = get_zmem (lLbr$c_pagesize, lbr$gl_control Clbr$l_oldhdrptr]); 
; 989 1908 IF NOT status ane . ! If error stcurreé, | 
; 990 180 THEN 
: 991 1808 4 BEGIN | 
3 336 1809 4 Lbr$close (.control_index); ! close the Library 
; pat ; \9 4 AN -Status; ! and return if error 
; 995 1812 CHSMOVE’ ( Lorie -popestze. ; ‘brSat control Clbr$l_hdrptr], .lbr$gl_control Clbr$l_oldhdrptr] ); 
: 338 181 oldheader = .lbr$gl_controt Clor$l_oldhdrptr]; 
: pod 13i9 gi gheater Clihd$w_closerror] = Lhd$c_corrupted; 
: 999 181 Lbr$gl_control Clbr$v_open] = true; ' In control block also 
: a 1817 content Cctx$v_libopnJ : true; ! Flag Library open 
; 4 1819 RETURN .return_status; ! Return with status 
; 100 1820 1 : 

| 


OFFC 00000 ENTRY LORSEPEN, Save R2,R3.R4,R5,R6,R7,R8,R9,R10,-; 1288 
5E FF70 CE 9E 00002 MOVAB -144(SP) é 
00006 CF D4 00007 CLRL  LBRSGL + 1367 
50 04 BC b0 00008 MOVL §§ @CONTROL_INDEX, RO + 1368 
00006 30 0000F BSBW VALIDAT : 
6E 50 DO Boots MOVL , STATO 3 
0c 6— £8 0001 BLBS STATUS, 1$ + 1369 
000000006 8F of D1 00018 CMPL STATUS, #LBR$_LIBNOTOPN ; 
03 13 OOO1F BEQL «=s«s1$ ; 
066F 31 00021 BRW 77$ : 
51 00006 CF DO 00024 1$: MOVL § LBRSGL_CONTROL, R1 : 1372 
08 06 Al 1 E1 00029 BBC #1, 6(R1) ; 
50 000000006 8F dO 00 : MOVL #LBRS$_LIBOPN, RO : 1373 
03 al $3 2$: TSTB =: 3(R1) : 1375 
35 12 00039 BNEQ : 
03 ¢ 91 00038 CMPB ss CAP), #3 : 1378 | 
28 1F 000 BLSSU 3$ F | 
0c aS rf 4 TSTL ai s 
2 4 BEQL 3 : | 
50 C A BY 4 MOVL FRE TE OO TRONS RO ; 1380. 
00000080 &F 4 A D! 49 CPL 4<RO), #12 ; 
00008000 = 8F 18 «OA pt 3 CMPL 4(RO), #32768 > 1381 
0B 14 0 8 BGTR $ ; 
1c OA 03 D TSTL 8(RO) : 1382 
06 0060 BLSS > ; 


] 
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1 
1 
03 1¢ a0 p CMPL 28(RO), #3 : 138 : 
0 BLEG : ; 
50 000000006 &F B6 ‘ 3$: MOVL #LBRS_ILLCREOPT, RO t 1384 | : 
1 —E CO 4$: ADDL2 #14, R1 : 1388 ’ 
Ha Buk dine Sa heal 
01 8 g SOTA BLBS § STATUS, 5$ : : 
4 9070 RET : ; 
51 20 AE OE Ove 5$: MOVAB RECRAB, R1 + 1392 : 
50 AG BF 7 00 MOVZBL #164, RO : ; 
00906 99 BSBW GET_ZMEM : ; 
6 d MOVL RO, “STATUS : : 
6f 5 008C BLBS STATUS, 68 + 1393 F 
01D? 31 0008F BRW 25$ : ; 
56 00006 CF DO 00092 68: MOVL  LBRSGL_CONTROL, R6 + 1402 : 
3 OE A6é DO 0009 MOVL 14(R6)> CONTEXT : : 
8 AE DO 00098 MOVL _RECR + 1403 : 
oc A? 58 D0 0009F MOVL RB, 12(CONTEXT) : ; 
59 16 A6 DO 000A3 MOVL é (R6), LBRNAM + 1404 ; 
0D 12 00047 BNE 4 : ; 
5 44 AB 3 00A9 MOVAB 68(R8), LBRNAN + 1406 
16 Ab 59 DO O00AD MOVL §LBRNAM, 22(R6) + 1407 
6002 8F B80 000B1 MOVW 424578 (LBRNAM) : 1409 
0050 «BF 00 6E ‘ 00 2c 60086 7$: MOVCS #0, (SP), #0, #80, LBRFAB + 1412 
40 AE 5063 BF 80 000BF MOVW #20483 LBRFAB > 1414 
56 AE 22 88 000C5 BISB2 #34, LBRFAB+22 + 1416 
03 A6 93 000¢9 TSTB =. 3(R6 : 1417 
06 13 000CC BEQL 8S : 
02 03 Ab 9! OO0cE CMPB  =s-s«-3(R6),, #2 : 1418 
06 12 9000 BNEQ 9$ F 
56 OA 01 88 00004 8s: BISB2 #1, LBRFAB+22 + 1420 
05 11 00008 BRB 10$ ; 
04 A? 80 8F 88 OO0DA 9$: BISB2 #128, 4 (CONTEXT) : 1422 
76 AE 0200 8F BO OOODF 10$:  MOVW #512. LBRFAB+54 > 1424 
SF AE 01 90 O00ES MOVB #1, LBRFAB+31 : 1425 
24 Ad 8 000€9 TSTW § 36(LBRNAM) : 1427 
06 13 O00EC BEQL 11$ : 
47 AE gi 88 OO0EE BISB2 #1, LBRFAB+7 + 1429 
C 11 000F BRB 14$ ; 
02 6C 91 O00F4 118:  CMPB (AP), #2 > 1432 
16 1F OOOF7 BLSSU 12$ : 
08 ac b 00F9 TSTL  8(AP) : 
11 OOFC BEQL 12$ : 
50 08 Ac p ore MOVL FNS, RO > 1435 
7 AE $9 01 MOVB (ROS, LBRFAB+S2 ; 
28 1 4 BEQL 148 > 1436 
6C AE 04 AO p 1 MOVL 4(RO), LBRFAB+44 : 1437 
21 11 «001 BRB 14$ + 1432 
03 Ag 23 10F 12$: TSTB 3 (LBRNAM) + 1441 
oC 13 00112 BEQL = 13 F 
74 AE 3 Ad 90 00114 MOVE §§ 3(LBRNAM), LBRFAB+52 3 1444 
6C AE 4 ad bo 119 MOVL 4(LBRNAM) , LBRFAB+44 > 1445 
10 11 0011 BRB 14 > 1441 
04 Bt DD 1g 13$ PUSHL  @CONTROL_INDEX > 1449 
0000v CF 1 FB 001 CALLS #1, LBR_DEAL_MEM : 


10 | 
LBR_OPENCLOSE 1Sese =1984 02:01: AX-11 Bliss-32 V4.0-74 Page 26 
v04= LBRSOPEN 127808- 1382 95:9) :28 PRR. SRC OPENCLOSE .B32; . B 
50 000000006 &F i 8 MOVL #LBRS_NOFILNAM, RO : 1450 : 
04 C 9100130 148:  CMPB (AP), #4 : 1ss| ; 
4 1F 001 BLSSU 6 : ; 
10 ac D 1 TSTL 16(AP) : | 3 
OF 13 001 BEQL 15$ : ; 
50 10 AC DO 0013A MOVL DNS, RO + 1457 ; 
75 AE 60 90 001 MOVB (ROS, LBRFAB+S3 : ; 
05 13 0014 BEQL 15$ + 1458 ; 
70 A 04 AO bdO 0014 MOVL 4(RO), "leet g 1459 | 3 
0 C 9100149 15$:  CMPB (AP), # + 1462 : 
—E iF O14¢ BLSSU 1e8 : : 
16 AC D3 146 TSTL 20(AP) : ; 
09 1 19 BEQL 6 : ; 
A 16 AC 06 01 ; MOVL. RLFNA, 16(LBRNAM) + 1465 ; 
47 AE 1 015 BISB2 #1, LBRFAB+7 + 1466 ’ 
68 AE 9 DO 0015¢ 16s: OVL §LBRNAM, LBRFAB+40 + 1469 ; 
50 00006 CF p0 0160 MOVL LERSGL_CONTROL,, RO + 1471 : 
03 AO 95 60165 1STB (RO) : : 
F if 0168 BNEQ 178 : : 
46 AE 2020 F A8& 0OO16A BISW2 #8224, LBRFAB+7 3 1474 é 
50 0¢ AC DO 00170 MOVL §_ CREATE_OPTIONS, RO > 1475 
50 A 08 AO DO 00174 MOVL 8(RO), LBRFAB+16 ; 
6 4401 8F BO 00179 178: MOoVW #17409, (RB) + 1479 
3c AB 40 AE H 00176 MOVAB LBRFAB, 60(R8) + 1480 
05 a8 0108 8F As 0018 BISW2 #264, 5(R8) > 1481 
06 6C 91 00189 CMPB. ss (AP), #6 + 1484 
22 1F 0018C BLSSU 18$ : 
18 AC DS 0018E TSTL 24(AP) ; 
1D 13 00191 BEQL 18$ : 
50 18 AC 00 00193 MOVL RNS, RO + 1485 
51 60 3¢ 00197 MOVZ2WL (ROS, R1 ; 
02 a9 51 90 0019A MOVB = R1, 2(LBRNAM) : 
51 D3 0019E TSTL = RY F 
OF 13 001A0 BEQL 18% : 
OA a9 60 90 O01A2 MOVB (RO), 10(LBRNAM) + 1487 
04 Ad 04 AO DO 001A6 MOVL 4(ROS, 4(LBRNAM) : 1488 
0c Ag 04 AQ DO OO1AB MOVL 4(RO), 12¢(LBRNAM) 3: 1489 
24 AE OF 0180 18$: | PUSHAB EVENT FLAG + 1494 
000000006 00 gi FB 001B CALLS #1, LIBSGET_EF : 
6E 0 DO 001BA MOVL RO STATUS : 
69 6— £9 0018 BLBC STATUS, 22$ ; 
50 00996 CF DO O01C MOVL BRSGL_ CONTROL, RO + 1496 
03 AO 9 ic TSTB (RO) : 
OF 12 O01C BNEQ 9$ : 
40 AE OF OicA PUSHAB LBRFAB > 1497 
000000006 00 1 FB 1€D CALLS #1, SYSSCREATE : 
6E 0 p 0104 MOVL RO, STATUS : 
0 11 00107 BRB ; 
52 1€ 06 109 19$: MOVL #30 RETRIES + 1499 
38 AE FF 676980 ar DO 0010¢ MOVL  #-10000000, ONE_SECOND : 1500 
C AE 1 ce 164 MNEGL #1, ONE_SECOND+S : 1501 
40 AE 9F OO1E8 20$: PUSHAB LBRF : 1502 
000000006 00 gi FB 1E CALLS #1, SYSSOPEN : 
GE 0 DO OO1F MOVL RO, STATUS : 
0001828A 8F gf D1 OO1F CMPL status, #98954 ; 
12 OO1FC BNE 1$ : 
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Be 008 LBRSOPEN 197808-1 38 05:9) :28 PRR. SRC OPEntrose 163024 . (3 
52 05 OO1F TSTL RETRIES : 1503 
15 1 BLEG : 
3 p DECL RETRIES + 150 
— 7¢ CLRO = = (SP) + 150 
%% OME bb PUSHL’ EVENT FLAG 
000000006 00 04 FB ¢ CALLS 4&4 SYSSSETIMR : 
24 AF DD 0021 PUSHL EVENT_FLA + 1508 
000000006 00 0 Fe 16 CALLS #1, SYS$WAITFR : 
co 1 1D BRB 20$ + 1502 
24 AE OF OOOTF 218 PUSHAB EVENT_FLAG + 1510 
000000006 09 01 fe 3 CALLS #1 LIBSFREE_EF : 
0 $6 9 22$: (MPR «CC AP), + 1516 
1F C BLSSU 24$ : 
1c «OAC D5 0228 TSTL 8 (AP) : 
2D 13 00231 BEQL 4$ : 
50 1¢ AC po 0 3 MOVL  RNSLEN, RO + 1517 
60 03 AS 9A 00 MOVZBL 3(LBRNAM) , (RO) : 
23 12 00 NEQ ¢ : 
60 0B A 9A 00230 MOVZBL 11(LBRNAM), (RO) : 1518 
1D 12 00 41 BNEQ  24$ : 
60 74 AE 9A 00243 MOVZBL LBRFAB+52, (RO) + 1520 
50 18 «AC pO 00247 MOVL RNS, RO + 1521 
51 60 3C 00248 MOVZWL (ROS, R1 : 
AE 08 00 ED 00 4E CMPZV #9 #8, LBRFAB+52, R1 : 
04 18 00254 BGEQ 23 ; 
51 74 AE 9A 00256 MOVZBL LBRFAB+52, R1 : 
B0 6C BE 51 28 0025A 23$:  MOVC3  R1, @LBRFAB+44, a4(RO) t 1522 
11 6— 8 99360 4$: BLBS STATUS, + 1527 
00006 CF 4C AE 00 0026 MOVL § LBRFAB+12, LBRSGL_RMSSTV + 1529 
04 BC DD 00269 25$:  PUSHL @CONTROL_INDEX : 1530 
0000v CF 01 FB 0026C CALLS #1, LBR_DEAL_MEM ; 
O41F 31 00 71 BRW 77 + 1531 
02 a7 42 AE BO 00274 26$: MOVW LBRFAB+2, 2(CONTEXT) : 1536 
58 DD 00279 PUSHL R : 1537 
000000006 00 01 FB 00278 CALLS #1, SYSSCONNECT : 
6 50 09 00 be MOVL RO, STATUS ; 
0 6E E8 0028 BLBS STATUS, ; 
00006 CF Oc A b0 0288 MOVL 12(R8), LBRSGL_RMSSTV + 1539 
O3FA 31 OO28E 27$: BRW 76$ : 1540 
67 02 AB BO 00291 28$:  MOVW  #2(R8), (CONTEXT) > 1544 
50 00006 CF DO 00295 MOVL LBRSGL CONTROL, RO : 1545 
12 AO 01 029A MOVL #1, 18TRO) : 
2 08 A? 9E 0029 MOVAB B¢FONTEXT), R1 + 1549 
0 02 BF A MOVZWL  # RO : 
00906 A BSBW  -GET_2MEM ; 
01 5 Fs 6 AA BLBS STATUS, 29S ; 
10 AE 000000006 a D0 AE 29$:  MOVL LBRS NORMAL, RETURN_STATUS > 1550 
51 00006 cr A C1 0028 ADDL3 #10, CBRS$GL_CONTROL,~R1 + 1562 
0 00996 CF p BC MOVL BRE$GL_CONTROL, RO : 1554 
A C1 TSTB (RO) ; 
0 C4 BEQL 0$ ; 
O1EA 31 6 BRW 4$ ; 
50 0200  8F ¢ C9 30$:  MOVZWL #512, RO > 1562 
00 06 CE BSBW GET _ZMEM : 
6E D0 0020 MOVL RO, “STATUS : 
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V04 LBRSOPEN 1 ety 7 95: 9}: as LBR.SRCJO ze ote ec p3ee4 . (3 
7 6E £9 00204 BLBC STATUS, 27$ : 1563 
0 00906 CF D9 07 MOVL LBRS L _CONTROL RO + 1570 
A AO p Df MOVL (RO); HEADER : 
4C Ab E MOVAB 76(R6). HDRNXTRFA + 1571 
OC A : £4 MOVL CREATE OPTIONS, + 1572 
66 6 £8 MOVB = (RB) THEADER) : 
1 Ab oc AaB 9 e MOVB ger ), 1(HEADER) + 1573 
8 Ab 0 p F MOVL #3, @(HEADER) + 1574 
¢ Ab 10 A F4 MOVB  16(RB8), 60(HEADER) : 1576 
16 =A 06 A 9 9 MOVAB 4(R6), 24(SP) : 1577 
0 ic AB OD F CMPL gb RB). #2 : 
0 if} 0 BNEG I$ : 
50 0758¢371 f og 0504 MOVL a 3454321, RO ; 
50 ODEC2581 BF 00 0300 318: MOVL 4983579005 RO : 
18 BE 0 DO 00314 32$:  MOVL RO, a24(SP : 
70 AG 18 A8& BO 0 18 MOVW  24(RB), 124(HEADER) : 1580 
0140 8F BB 00310 PUSHR #*M<R6.RB> + 1584 
0000v CF : FB 00321 CALLS #2, PREALLOC_INDEX : 
6 DO 00326 MOVL RO, ; 
0 ge 5 0329 BLBS srAtus, $ : 
035C 31 0032C BRW 68 : 
62 52 Ag DO OO32F 33$:  MOVL $= 82(HEADER), (HDRNXTRFA) + 1589 
06 =O BA 0333 CLRW 4 (HDRNXTRFA) : 1590 
50 00006 cr A 0 é HOV ZBL LBRSGT_ LBRVER, RO : 1591 
OC Ab 00006 CF 50 28 0 2 MOVC3 RO LBRSGT _LBRVER, 12(HEADER) F 1592 
2c «Ab OF 00344 PUSHAB 44 (HE * 159 
000000006 00 01 FB 99 47 ALLS #1, EV SSCE TTI : 
54 1 Ab 9A 0034 MOVZBL 1 (HEADER), R4 : 1597 
52 00BC ¢ 9E 0035 OVAB  188(R6), R2 + 1601 
D4 0035 CLRL ‘ + 1605 
55 11 00359 BRB 9$ : 
51 6240 7€ 00 5B 34$:  MOVAQ (R2)CI), R1 + 1604 
1 B4 035F CLRW = (R1) F 
53 50 3 78 00361 ASHL #3, I, R3 + 1621 
5 02 CO 00365 ADDL2 #2. RS : 
04 AS DS 00368 TSTL 4(R8) : 1605 
; 13 00368 BEQL 37S : 
61 1 88 00360 BISB2 #1, (R1) + 1608 
1c =AB «DS 0037 TSTL g8{R8) + 1609 
06 13 0037 BEQL $ : 
03 1¢ AB DI 0037 CMPI. g8 (RB). #3 > 1610 
1F 19 0 79 BLSS 6% F 
61 04 88 78 35$: BISB2 #4, (R1) + 1613 
61 01 3 20 AS F 0 7E INSV 32¢R8), #3, #1, (R1) > 1615 
55 20 As 01 1 €F Bi EXTZV #1, #1. 32¢R8). RS : 1617 
61 01 04 5 FO O038A INSV RS. #4, #1, (RID : 
55 20 AB 1 EF O038F EXTZV We. #1, 32¢R8), RS > 1619 
61 01 05 FO 00395 INSV RS. #5. #1, (RI) ; 
6342 9F gh 36$: | PUSHAB (RS) ERE > 1621 
9E 04 As or Al ADDW3 #1, 4(RB), a(SP)+ ; 
6 11 G03A2 BRB 38§ > 1605 
6342 9F OO3A4 37$: PUSHAB. (R3)CR2] > 1624 
9E 04 80 A7 MOVW #4, a(SP)+ : 
04 A240 7F OO3AA 38$:  PUSHAQ 4(R2)C1) > 1625 
9E D4 OO3AE CLRL a(SP)+ 
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Lbe=000 LBRSOPEN 1e-Sep-19 4 95:9) 328 LOR. SREIOPENCLOSE b32¢4 ad 3 
A7 50 54 £3 00380 39$:  AOBLEQ R4, I, 34 3 1597 
08 AE 008 C6 3 B4 MOVAB 140(R6), csp) + 1628 
BE p BA CLRL a8 (SP) : 
08 1 0038 CMPB sé AP), #8 + 1630 
IF C BGEQU 41$ : 
02 C2 40$: RW 698 : 
20 =A D3 (5 41$:  TSTL (AP) : 
Fa 1 (8 BEQL 40$ : 
58 SA A? OO CA MOVAB 9O(CONTEXT), R11 + 1634 
00006 CF p ce Ist — + 1645 
FBE7 cf 09 re D4 CALLS @ LBRSLQAD_DCX + 1647 
4 E 09 BLBC STATUS, 47$ : 
SA 20 AC DO 003DC 428:  MOVL = DCX_MAP_DESC, R10 + 1649 
04 AE 4 AA 00 003E0 MOVL  4(RTO),~MAP_BEGIN : 
OC AE D4 OO3E5 CLRL_ MAP_OFFSET + 1650 
58 6A 04 C1 00368 ADDL3 #4,~(R10), MAP_LEN + 1651 
50 58 00000200 &F cr OO3EC DIVL3 #512, MAPLEN,~RO + 1653 
7E 00 58 01 7A 003F4 EMUL #1, MAP_LEN, #0, -(SP) + 1654 
51 51 BE 00000200 8F 4: 003F9 EDIV #512, (SP)+. R1, R1 : 
51 D5 00402 TSTL = RV. : 
05 15 00404 BLEG 46-43 ; 
51 01 00 00406 MOVL #1, R1 : 
02 11 00409 BRB $ : 
51 D4 00408 43$: CLRL_ Ri : 
1 AE 50 51 C1 00400 44$: ADDL3 1, RO, MAP_BLOCKS : 
146 AE D4 00412 CLRL J : 1678 
6A 11 0041 BRB 50$ : 
00000200 = 8F 58 D1 00417 45$:  CMPL  MAP_LEN, #512 + 1659 
05 15 O41 BLEG 46$ : 
58 0200 8F 3C 004 MOVZWL #512, MAP_LEN > 1661 
51 38 AE 9E 00425 46$:  MOVAB  NEWVBNADR? R1 + 1662 
50 C AE 3 00429 MOVAB NEWVBN, RO ; 
00006 3 004 D BSBW  ALLOC BLOCK : 
SF 50 £9 0430 47$:  BLBC STATUS, 51$ F 
51 30 AE 043 MOVAB CACHE _ENTRY, R1 + 1663 
50 2¢ AE p 04 MOVL NEWVBN, RO F 
00006 0438 BSBW ADD CACHE F 
50 30 AE DO 004 MOVL  CACRE_ENTRY, RO > 1664 
08 Ao 28 AE DO 0044 MOVL NEWVBNADR, 8(RO) 3 
0c a0 03 88 0044 BISB2 #3, 12(ROS > 1666 
08 BE 05 00448 TSTL a8 (SP) > 1667 
1D if O4ae BNEQ 49$ F 
28 3 6A p O49 MOVL (R19), @NEWVBNADR : 1670 
04 AB 9E 00454 MOVAB 4(RB). RO : 1671 
00000200 = &F 30 D1 0498 CMPL =soRO, #512 : 
15 0045F BLEQ 3 
58 4 ¢2 00461 SUBL2 #4, MAP_LEN > 1673 
08 BE 2C «AE DO 00464 48$:  MOVL NEWVBN, a8(SP) > 1674 
38 AE 04 CO 00469 ADDL2 #4, NEWVBNADR > 1675 
7E C AE 04 A ci 04 p 49$:  ADDL3 MAP_BEGIN, MAP_OFFSET, -(SP) : 1678 
28 «BE 9E 5 47’ MOVC3 MAPTLEN, @(SP)?, @NEWVBNADR ; 
Oc AE 58 CO 00478 ADDL “LEN OFFSET : 1679 
58 6A o¢ AE C3 0047C SUBL3. MAPTOFFSET, TR10), MAP_LEN : 1680 
90 14 AE C AE F3 00481 50$: § AOBLEQ MAP™BLOCKS, J, 45$ > 1657 
g4 AA 9F 00487 PUSHAB 4 (RTO) > 1682 
2 A? OF 0048A PUSHAB 82(CONTEXT) : 
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2 ae Bliss-32 V4.0-74 
LBR.SRCJOPENCLOSE .832; 


#2, @DCX_COMPRESS_INIT 
STATUS, 55$ . 

R10, 86(CONTEXT) 

#396 Steen 

4(R14), 

#4096 


RO 
ET MEM 
STATUS, 53$ 
69$ 


LBRSGL_CONT |, RO 
10(RO)> HE. 2 

4(R6), 24(5P, 

@24(SP), #123454321 

@24(SP), #233579905 

a 4 (SP), #319232342 

1(HEADER), #129 

(HEADER) 

HEADER 

LBR_OLD_LIB_DAT 

4(TONTEXT) 

Lars j CONTROL, RO 
#LERS_OLDLIBRARY, RETURN_STATUS 
CONTROL _ INDEX 

#1, LBRSCLOSE 

#LBRS_ILLFMT, RO 


17 pena RO 
(RO) 


0$ 

(HEADER), 2(RO) 

RETURN_STATUS, #LBRS$_NORMAL 
#LBRS_TYPMISMCH, RETURN_STATUS 
RETURN_STATUS, #LBR$_OLDLIBRARY 
#LBRS OLDMISHCH, RETURN_STATUS 
(HEADER), 2(RO) 

64 (HEADER) 61$ 

#LBR ERRCLOSE, RETURN_STATUS 
140(R8), 8(SP) 

a8 (SP) 

62$ 
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10 
LBR_OPENCLOSE 1b-$6 -1984 02:01:2 AX-11 Bliss-32 V4.0-74 
V04= LBRSOPEN 1 ~8ep-19 4 95:95:23 LOR SREIOPENCLOSE B32, 
0084 31 0057 RW 69$ 
08 6¢ 3 8 62$: CMPB (AP), #8 
1F 0057¢ BLSSU $ 4 
20 AC D3 7 TSTL (AP) 
7A 12 005 BNEG é $ 
52 SA OAT OO 3 63$ MOVAB 9O0(CONTEXT), R2 
00006 CF D TSTL § DCXSHR_ADDRESS 
8 12 00588 BNEG 64$ 
FA2E CF FB 58D CALLS #0 LBRSLOAD_DCX 
SE 5 2 BLBC satus 67$ 
51 56 OA 595 64$:  MOVAB G(CONTEXT) R1 
50 08 p 0599 MOVL @#@ 
00006 9C BSBW 3Ssé«G EE’: 
51 50 E9 0059F BLBC STATUS 67$ 
56 A? DD O5Ae PUSHL 86(CONTEXT) 
7E D4 005A CLRL. (SP) 
F852 OCF 02 FB 005A7 CALLS #2, LBRSDCX_MAP 
44 50 £9 O5AC @LBC STATUS, 67$ 
51 52 A? E OSAF MOVAB 82(R7), R 
50 00006 CF DO 00583 MOVL LERSGL_CONTROL., RO 
01 03 AO 91 00588 CMPB (RO), #1 
1A 12 0058C BNEQ 
7E 56 A? 04 C1 O58 ADDL3 #4, 86(CONTEXT), -(SP) 
51 DD 005¢ PUSHL 
00006 oF 08 FB 005¢5 CALLS #2, @DC EXPAND. INIT 
26 50 €9 OOSCA BLBC STATUS, 87$ 
1 04 A2 9E 005CD MOVAB 4(R2), R1 
50 0800 8F 3C 00501 MOVZWL #2048, RO 
18 11 00506 BRB 66 
7E 56 OA? 04 C1 00508 65$:  ADDL3 #4, B6(CONTEXT), -(SP) 
51 DD 00500 PUSHL 1 
00006 oF 02 FB O00S5DF CALLS #2, @DCX_COMPRESS_INIT 
0c 50 €9 005E4 BLBC STATUS, 87$ 
51 04 A2 9E 005E7 OVAB 4(R2), R1 
50 1000 _8F 3 005€B MOVZWL #4096, 
00006 30 005FO 66$: SBW CSET 
01 50 Fs O05F 67$: BLBS STATUS, 68$ 
02 A2 010E 8F B 0087 68$ MOVW #270, 2(R2) 
08 BE DS 005FD 69$ TSTL  a8(SP 
08 13 00600 BEQL 708 
18 BE 13071956 8F Dd 00602 MOVL  #319232342, @24(SP) 
00006 CF 66 9A 0060A 708 MOVZBL (HEADER), LBRSGL_RMSSTV 
00006 CF D3 960F TSTL LBRSGL_MAXREAD 
44 1 13 BNEG 4$ 
34 AE 9F 0061 PUSHAB BLKSIZ 
7E D4 00618 CLRL s- 
000000006 00 0 Fe 61A CALL He SYSSADJWSL 
0 34 AE 3 C3 00621 SUBL3 #56, BLKSIZ, RO 
32 D1 006 $ CMPL 0 
15 6 BLE 
50 06 B MOVL #50, RO 
00006 CF DO 0062 71$: # MOVL RO, LBRSGL_MAXREAD 
02 00006 CF 01 206 CMPL RSGL_MAXREAD, #2 
5 18 006 BGEG $ 
00006 CF 2 DO 0063A MOVL #2, LBRSGL MAXREAD 
05 36 AD 1 €1 0063F 72$: BBC #1. S4(LBRRAM), 73% 
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LER -PARNCLOSE 


00G CF DO 00644 MOVL. #2, LBRSGL_MAXREAD : 1786 
000G CF 20006 CF 33 ¢ 649 73$: ADDL3 486, LBRSGC_MAXREAD, MEMSL_MEMEXP + 1787 
000G CF 0006 ct 1 ASHL #9, MEMSL_MEMEXP, MEMSL_MARBLK : 1788 
9 00096 CF p 9 74$:  MOVL BRSGL_CORTROL, RO + 1790 
0 0 AQ : CPB RO), # : 
03 AO 9 TSTB (RO) : 1791! 
34 te 9F 006 Ns 75$ BNE HAB 52 (HEADER) : 1797 
000009006 00 01 F 66 CALLS #1, SYSSGETTIM : 
4 A 88 006 B1SB¢ #8. 4(CONTEXT) + 1798 
51 00006 cr 1A 67 ADDL3 # é LBRSGL_CONTROL, R1 : 1805 
0 0200 _8F f 7D MOVZWL #512, RO ; 
00 06 682 BSBW GET_2MEM : 
6E D0 6 MOVL RO, “STATUS ; 
OC 6E 688 BLBS STATUS, 78$ : 1806 
04 AC DD 0068B 76$:  PUSHL CONTROL_INDEX + 1809 
0000v CF 01 FB 06 . CALLS #1 LBRSCLOSE F 
50 5E b0 0693 77$: MOVL STATUS, R : 1810 
56 00006 CF 20 0697 78$:  MOVL_ LBRSGL_CONTROL, R6 + 1812 
1A BE 0A 86 0200 FF 069¢ MOVC3 #512, S10(R6), @26(R6) : 
50 1A AB —DO O06A4 MOVL 26 (RG), OLDH + 1813 
40 AO DEAD 8F BO 006A8 MOVW #8531, 64(OLDHEADER) > 1814 
50 00006 CF DO OOGAE 793:  MOVL  LBRS$GL CONTROL, RO + 1816 
06 AO 02 88 0068 BISB2 #2, 6(RO) : 
04 A? 01 88 00687 BISB2 #1. 4(CONTEXT) + 1817 
50 10 AE 00 00688 MOVL §RETURN_STATUS, RO : 1819 
04 0068F RET : 1820 


; Routine Size: 1728 bytes, Routine Base: S$CODE$S + 0278 
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rivets LBRSCLOSE 13-808-13B2 95:94:28 LBR.SRCJOPENCLOSE .832; wee B3 


; 1005 1821 1 ZSBTTL ‘LBRSCLOSE'; 

: 1989 1 § 1 GLOBAL ROUTINE Lbr$close (control_index) = 

; 1007 1 BEGIN 

; 1008 1824 '+4 

; 1009 1825 : 

: i3i9 : § } FUNCTIONAL DESCRIPTION: 

at 1828 : This routine closes an open Library file and release all virtual 

: OF \s 4 memory allocated while the file was open. 

; 1015 1831 ! CALLING SEQUENCE: 

: 1St8 1836 ’ 

3; 101 18 ; status = LBRSCLOSE (control_index) 

; 1018 1834 : 

3; 1019 1835 ! INPUT PARAMETERS: 

; 1330 1836 } 

; 1021 1837 : control_index is the address of a longword containing the 

: Iss 1838 : index returned from LBRSINI_CONTROL 

3; 102 1839 ! 

3; 1024 1840 ! IMPLICIT INPUTS: 

: 1025 1841 ‘ 

: 1026 1ee6 ! NONE 

3; 1027 184 ! 

3; 1028 1844 ! OUTPUT PARAMETERS: 

3 ipep 1845 § ! NONE 

; 10350 1846 : 

; 1031 1847 2 ! IMPLICIT OUTPUTS: 

3: 1032 1848 2! K 

3 1033 1849 2! The library file is closed, All virtual memory allocated for the 

: it 1930 processing of the Library is deallocated. 

; 1036 1936 ! ROUTINE VALUE: 

3; 1037 185 } 

; 1038 1854 § : lbr$_lLibnotopn Library was not open 

3; 1039 1855 : lbr$_illctl illegal control block 

3 1040 1856 2! 

3 1041 1857 2 ! SIDE EFFECTS: 

3 1042 1858 2! NONE 

3: 1043 1859 2! 

3: 1044 1860 feo 

3: 1045 1861 LOCAL 

3; 1046 1866 header_status, 

3: 1047 186 cache_status, 

3; 1048 1864 disc_rec_sts, 

3; 1049 1865 close_status; | 
3; 1050 1866 : 

3; 1051 1867 IF ..control_index EQL 0 ! Q gets a return immediately 

; 1036 1868 THEN RETORN true; 

3; 103 1869 IF NOT validate ctl (..control_index) !Validate the control table 

3: 1054 1870 THEN RETURN LbrS_ilictl _ 
3; 1055 1871 ELSE IF NOT. Sot control Clbr$v_open] ‘Library must be open also 

: 1056 130¢ THEN RETURN Lbr$_liBnotopn | 
; Hed 8, ELSE BEGIN | 
: 1059 1875 ! Write back to file if necessary, close library, and deallocate 
3 1960 1376 : dynamic virtual memory. 


<r 
am 
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vO0=000 LBRSCLOSE 1e8eb- 1984 13:57:45 — ELBR SREIOPENCLOSE.03051 : a 
; 106 187 LOCAL | 
3 1084 ! 7 we : BBLOCK Cfab$c_binj; 'FAB for closing Library 
; 1065 1 Hi context = .lbr$gl_control Clobr$l_ctxptr] : BBLOCK, !Context block pointer 
: 1206 18 ¢ header = .lbr$gl_control Clobr$l Rdrptrd : BBLOCK, ! Library header 
; 1067 ] ? recrab = .context Cctx$l_recrab] : BBLOCK; !Record RAB 
3 34 1885 header_status = true; 
; 1070 1 § disc_rec gts = true; } 
; 1071 18 CHSFILL T0,fab$c_bln,lbrfab); 'Zero the FAB 
i 1078 1888 3 (brfab fabsb_bl ="fab$c_bln; iTdentify it as a FAB 
; 107 135% lorfab [fabSb_bid] = fab$c_bid; 
; 107% 1890 lbrfab CfabSw_ifi] = .context Cctx$w itil; ‘Set IFI for close 
: 1078 1398 : Write all modified blocks to the Library file. 
; 1078 1894 cache_status = dealloc_cache (); ! Write cached disk blocks if necessary 
3; 1079 1895 IF .context dg Mie Sp ! If header modified, 
; 1080 1998 AND NOT .context (ctx$v_oldlib] ! and not old format Library 
; 1081 1897 4 THEN BEGIN 
; 1082 1898 4 INCR I FROM 1 TO .header Clhd$b_nindex] 'Clear the lock bit in index descriptors 
; 1083 1899 2 DO BEGIN 
3 1084 1900 BIND 
3; 1085 1901 5 index_desc = header Clhd$c_idxdesc - idd$c_length, 0, 0, 0] : 
: 1086 1906 5 BLOCKVECTOR C,7dd$c_length, BYTE); 
; 1087 1903 5 
; 1088 1904 5§ index_desc C.i, idd$v_tocked] = false; 
3 1089 1905 4 END; 
3 1090 1906 4 
; 1091 1907 4 IF .cache_status ! If no error in writing out cache then write header back 
3 19% 1908 4 THEN 
3 109 1909 5 BEGIN 2 
3 1094 1910 5 header_status = write block (.lbr$gl_control (Clbr$l_hdrptr], 1); 
3 1095 1911 § perforaidealloc_men((6rSc_pagesize, ~Lbr$gl_control(Tbr$l_oldhdrptrJ)); 
3 1096 13\§ 4 ND; 
: 1097 1913 3 END; 
; 1098 1914 
; 1099 1915 IF .headerClhd$l_dcxmapvbn] NEQ 0 
: 1100 1916 THEN 
3 1101 1917 4 BEGIN 
3 1106 1918 4 BIND 
3 110 1919 4 dcx_rec_desc = context(ctx$l_dcexrecdsc] : BBLOCK Cdsc$c_s_bin]; 
3 1194 1920 4 IF .lbr$gl_controlClbr$b_func] EGL Lor$c_read 
3 119? 1921 4 THEN 
211 1928 5 BEGIN | 
3; 1107 19 perform((.dcx_expand_done) (context(ctx$l_dcexctx])); 
3; 1108 1924 5 per tormideat Loc_nem(TorSc_naxrecsiz. -dcx_rec_desc(dsc$a_pointer])); 
3 1109 1925 5 ND 
: 1110 19 $ 4 
21111 1927 5 BEGIN | 
3 11i¢ 1928 5 perform((.dcx_compress_done) (context(ctx$l_dcexctx])); ; 
; ani? 136? ? ectoratdeel loc _sem(ler Scuse maurecs'z. -dcx_rec_desc(dsc$a_pointer])); 
3 1115 e 1931 4 perform(deal loc_mem(. .contextLetxs| dexmapdsc] 
: 1116 1938 4 . Ccontextlctx$T_dexmapdsci+4))); | 
31117 193 ; END; 
3; 1118 1934 


LBR_OPENCLOSE 16-5 Sep-1984 AX-11 Bliss-32 V4.0-74 Page 5 
i ba=005 LBRSCLOSE ep-1986 6: gh: es LBR.SRCJOPENCLOSE .B32; . cB | 
¢ 1138 1988 3 i Close the fil | 
; ! ose the e. 
> 1121 19 5 i 
3 11 g 1938 if -recrab Crab$w_ isi) NEQ 0 ‘If stream is connected 
3 11 1939 THEN disc_rec_sts = SDISCONNECT (RAB = recrab); 'Disconnect record stream 
: 11246 1940 close_status ~= S$CLOSE (FAB = Lbrfab); ‘!Close the file 
3 1125 1941 Lbr_deal_mem ig oe index); ent tesa memory 
3 1126 Hg IF NOT .feader statu 
3: 1127 194 THEN RETURA header. status 
: 1128 1944 ELSE IF NOT -cache_ Status 
: 1129 1945 THEN A -cache_status 
; 11350 1208 ELSE IF .disc_rec_sts 
3 1131 194 THEN” 48 URN .disc~ “rec_sts 
3 11 4 1948 ELSE IF NOT .close status 
311 1949 THEN RETURN .close_status 
3 11 1950 ELSE RETURN Lbr$ normal 
3; 1135 1951 END 
3 11 1952 1 END; ! Of LBRSCLOSE 
~EXTRN SYSS$DISCONNECT, SYSSCLOSE 
OFFC 00000 ENTRY Se | ia Save R2,R3,R4,R5,R6,R7,R8,R9,—- : 1822 
5E BO AE 9E 00002 MOVAB -80(SP), SP 3 
59 04 BC DO 00006 MOVL @CONTROL_INDEX, R9 3; 1867 
04 12 OOO0A BNEQ 1$ 3 
50 01 pO 0000C MOVL #1, RO : 1868 
04 0000F RET : 
50 59 DO beers 1$ MOVL R9, RO 3; 1869 
00006 30 0001 BSBW VALIDATE_CTL : 
08 50 €E8 00016 BLBS pF 
50 000000006 8F 00 00019 MOVL  #LBRS_ILLCTL, RO : 1871 
04 00020 RET 3 
50 0000G CF D0 BROS. 2$: MOVL LBRS$GL_CONTROL, RO é 
08 06 AO 4 EO B80 6 BBS #1, 6(RO), Fi 
50 00000000G 8F »? 00038 st #LBRS$_LIBNOTOPN, RO 3; 1872 
56 bE AO D0 808 3$: MOVL 14(RO), R6 ; 1881 
57 A AO 00 00037 MOVL 10(RO), R7 3 1886 
58 0c A6 DO 00038 MOVL 12(R6), R8 3; 188 
gi BS wane aE gh Moe R stats 1 
0050 8F 00 6E 09 Be $38 MOVCS #0; (SP)7 ES: $780, LBRFAB > 1887 
6E 5003 $f BO 0004D MOVW #20483, LBRF 3; 1889 
02 AE 02 Ad B0 $896 MOV 2(R6), LBRFAB+2 : 1890 
00006 cr 99 FB 0005 CALLS #0, DEALLOC_CACHE > 1894 
3 0 bd0O 0005C MOVL RO, CACHE_STATUS 3 
42 4 A6 8 E1 O005F BBC #3, 4(R6), 6$ 3; 1895 
3D 4 Ab 50 0064 BBS #5, 4(R6), 6$ : 1896 
51 01 AZ 9A 0069 MOVZBL 1(R7), R1 : 1898 
50 D4 00060 CLRL j 3 
2 11 peer BRB $ : 
OOBC C74 7F 6b 1 4$ PUSHAQ Hh pa 44 $F 3: 1904 
9E 02 8A 00076 ICB2 #2, a(SP)+ ; | 
| 


<- 
£2 


a a ed od dd 8 tk ed 8 dd as 2d td dd a dd 8 dd dS 3 td 
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1be=000 LBRSCLOSE 13-80 8=1 8c 95:94:28 YiBR.SRe OPENCLOSE .B32; pa 

FG 0 5} F3 79 5$: AOBLEQ R1, I, 4$ : 

$ E 7 BLBC CACHE STATUS, 6$ : 

00006 cf d0 MOVL LBRSGE CONTROL, R2 : 

1 1 00 000 MOVL #1, R : 

0 OA A : 088 MOVL  10(R2), R : 

009 G 0 C BSBW WRITE BLOCK : 

58 D f MOVL RO, HEADER_STATUS : 

3¢ 00006 CF D 009¢ MOVL LBRSGL CONTROL. R2 : 

1 1A A2 D0 0009 MOVL G(R )* RI : 

50 0200  8F ¢ 00 MOVZWL #512, RO : 

00006 O0A BSBW  DEALLOC_MEM : 

4F 9 OA BLBC Status 9$ : 

00sec =C b3 OOA6 6$ TSTL 40(R75 : 

4C 13 OOOAA BEQL 10$ : 

52 SA AG 9 OOAC MOVAB 90(R6), R2 : 

50 00006 CF DO 000B0 MOVL BRSGL_CONTROL, RO : 

01 03 AO 91 00085 CMPB (RO), #1 : 

16 12 00089 BNEQ s : 

52. A6 OF 000BB PUSHAB 82(R6) : 

00006 nF 01 FB 000BE CALLS #1, @DCX_EXPAND_DONE : 

79 50 €9 000C BLBC STATUS, T6$ ; 

51 04 A2 bo 0006 OVL  4(R2), R1 : 

50 0800 8F 3C OOOCA MOVZWL #2048. RO ; 

14 11 O00CF RB as ; 

52 Ab 9F 00001 7$ PUSHAB 82(R6) ; 

00006 oF 01 FB 000D4 CALLS #1, a@DCX_COMPRESS_DONE ; 

63 50 €9 00009 BLBC STATUS, T6$ ; 

5} 04 A2 00 000DC MOVL 4(R2), R1 : 

50 1000 _‘8F 36 000E0 MOVZ2WL #4096, RO ; 

00006 30 O00ES 8s: BSBW  DEALLOC_MEM ; 

54 50 €E9 000E8 BLBC STATUS, 16$ : 

52 56 A6 DO OO00EB MOVL 6(R6), R2 : 

50 62 7D OOOEF MOV (R2), R : 

00006 30 OO0Fe BSBW  DEALLOC_MEM : 

47 50 €9 O00F 9$: BLBC STATUS, -16$ ; 

02 AB 8 OOFB 10$:  TSTW  2(R8) ; 

o¢ 13 000FB BEQL 118 : 

8 DD COOFD PUSHL R8 : 

000000006 00 01 FB OOOFF CALLS #1, SYSS$DISCONNECT : 

SA 50 D0 00106 MOVL RO, DISC_REC_STS ; 

5E DD 00109 11$:  PUSHL SP : 

000000006 00 01 FB 00108 CALLS #1, SYSS$CLOS : 

52 50 DO 0011 OVL RO, CLOSE_STATUS ; 

59 DD ou PUSHL 9 ; 

0000v CF gi FB 11 CALLS #1, LBR_DEAL_MEM ; 

04 B €E8 O001IC BLBS §HEADER_STATUS, 12$ ; 

50 5B 00 0011F MOVL § HEADERTSTATUS, RO ; 

04 001 ¢ RET 3 

04 53 £8 00103 12$: BLBS  CACHE_STATUS, 13$ ; 

50 53 BO 01 é MOVL § CACHE STATUS. R : 

4 001 RET 3 

4 5A £8 0012A 13$:  BLBS DISC_REC_STS. 148 F 

0 SA BO 0120 MOVL DISCZREC7STS. RO : 

4 ot 0 RET : 

4 52 Es 131 14$:  BLBS CLOSE_STATUS, 15$ ; 

0 52 00 001 MOVL § CLOSETSTATUS, RO ; 

04 00137 RET : 


"1 
yeerp0b Oe LarscLose if: opr 1eRe 9Si8bice | HR SRP bbbENtrote o3009 Page 3) 
50 000000006 8F pO 00138 158: MOVL © ALBRS_NORMAL, RO : 1950 
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5 


ZSBITL. ‘all_control_idx'; 
ROUTINE all_Control_Tdx (control_index, control_table) = 


i 

! If no index number is found then Lbr$_toomnylib is returned. the control 
! table is then allocated and the address returned in control_table. The 
control table address is also store in lbr$al_ctltab. 
i 


NCR i FROM O TO (LbrSc_maxctl = 1) DO 
A aetna sce -ij EQL 0 'If we found one 


PELELESESSSSIGLS 


WN SO OCODNAYV EWN —OVOONOulw i 


BEGIN 
-control_index = .i + 1; ‘Return index to caller 
per fore oet zmem_(lbr$c_length, .control_table)); !Allocate the control table 
br$al_ctltab C.iJ = ..control geple; 'Set address into table 
IF_.i GTRU .Lor$gl_hictl THEN Tor$gl_hictl = .i; !Update hictl if needed 
9 RETURN true; 
97 ND; 
97 RETURN Lbr$_toomnylib ; 
97 END; 'Of all_control_idx 


: | 

! . | 
BEGIN 

This routine allocates an index number and returns it in control_index. | 

| 

| 

| 


OFFC 00000 ALL_CONTROL_ IDX: 
. WORD 


Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 : 1954 
52 D4 00002 CLRL : 1968 
OO00GCF42 DS 00004 1$: TSTL LBRSAL_CTLTABLIJ + 196 
29 12 90009 BNEQ $ : 
04 aC 01 A2 9 0008 MOVAB 1(R2), @CONTROL_INDEX t 1966 
1 08 aC DO 0001 MOVL CONTROL TABLE, Ri + 1967 
50 1E b0 0014 MOVL #30, R : 
00006 0017 BSBW GET ZMEM : 
22 50 €9 OOO1A BLBC STATUS, 4$ ; 
O000GCF4 08 BC DO 0001D MOVL § @CONTROL_TABLE, LBRSAL_CTLTABLI) + 1968 
0006 CF é D1 00024 CMPL LBRSGC_HICTL : 1969 
0 18 0029 BLEGU : 
00006 CF 52 D0 00028 MOVL I, LBRSGL_HICTL : 
50 01 DO 000 0 2$ MOVL #1, RO : 1970 
04 90053 RET : 
cc 52 OF F3 00034 3S: AOBLEQ #15, I, 1$ > 1963 
50 000000006 8F B6 00038 MOVL #LBRS_TOOMNYLIB, RO : 1978 
4 0003F 4$: RET : 197 


; Routine Size: 64 bytes, Routine Base: $CODE$ + 0A78 
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vite dea_control_idx 1a-Sep “19 3b 96: 9}: ¢ LBR.SRCIJOPENCLOSE.832;1 
1 ZSBTTL. “dea_control_idx'; 
poutine dea_Control_Tdx (control index) : NOVALUE = 
' 


LOCAL 
index; 
index = .control_index - 
dealloc - p Eatnd lengthy. -lbr$al_ctltab C. index]); ag de B cpieis table 
index] = ‘Zero the table en 
INCR i” ern ndex TO. iprégt hictl iSee if any Rloher’ iadices allocated 
DO IF Abreal et eth tes C:i art here 8 are 
en 


ELSE IF “i veo elbr$gl_hictl 'If we 90 welt the way to end 
boregc am iett = .index; 'Then new low is just below us 
RETURN; 


END; 
END; !O0f dea_control_idx 


OOONA NEW S(O OONOuUs 


20909090909 09 09 C908 III 


et a wt a 1s a Sd 9 SS 9 — 9 sg 9 4 ss 


SNS NSN o Oo 
SSHNFAP UV OOM UR AROS 
a nt ss et ss es 4 8 we 


oo 


1 
This routine deallocates an index number and updates Lbr$gl_hictl if necessary. 
2 
1 


ewn— 


OFFC 00000 DEA_CONTROL_ IDX: 


«WORD Save R2,R3,R4,R5,R6,R7,R8B,R9,R10,R11 


54 00006 CF 9€ 0000 MOVAB LBRSAL_CTLTAB, R4 
53 00006 CF 3 9000 MOV LBRS$GL-HICTL, R3 
52 04 AC 01 ¢3 0000C SUBL3 #1, CONTROL INDEX, INDEX 
51 6442 00 00011 MOVL  LBRSAL CILTRBCINDEX] R1 
50 1E 20 00015 MOVL 
00006 30 00018 BSBW DEALLOC 
o44¢ D4 00018 CLRL = LBRSAL “ETL ABC NDEXI 
51 6 DO OOOI1E MOVL L BRSGL_H . RI 
50 FF A2 i 00021 MOVAB =1 oN 
OF 1 000 5 BRB 
6440 D5 00027 1$: TSTL BRSAL_CTLTABL1) 
Op 12 0002A BNEG 
63 0 D1 0002c CMPL 1, LBRSGL_HICTL 
4 if O02F BNEQ 
63 2 dO 00031 MOVL = INDEX, LBRSGL_HICTL 
04 90 RET 
EE 50 51 F3 5 3s AOBLEQ R1, I, 1$ 
04 00039 3$ RET 


; Routine Size: 58 bytes, Routine Base: S$CODES + OAB8 
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1822000 prealloc_index 122868218 4 95:93:28 LBR. SREJOPENCLOSE 63244 

1 ¢ 1995 1 2SBITL ‘prealloc_index'; 

1 296 1 ROUTINE prealloc_index (header, create_options) = 

| rt 

186 44 This routine pre-allocates index blocks in a Library being created. 

188 001 MAP 
189 0 ¢ header : REF BBLOCK 

190 0 create_options : REF BBLOCK; 

191 004 
136 005 LOCAL 
19 886 indexblocks, 

194 entall, 

195 Eniererethe 

136 bufblks, 

19 cachentry : REF BBLOCK, 

Ps bufadr : REF VECTOR C,LONG); 

00 entall = 1create_options Ccre$l_entallj; 'Pick up user request 

01 IF .entall EQL O THEN entall = Tbr$c_defentall; ! and default null request 

4 entsperblk = (IF .create_options Ccre$l_ke lend + 1 NEQ 0 !Determine if ASCII or binary 
eo: Mag geroetesottons Ccre$l_keylen] ! and determine length of keys 
05 entsperblk = (index$c sangen - index$c_entries) / (.entsperblk + rfa$c_length); 

06 indexblocks = .entall7.entsperblk; ‘compute # blocks to allocate 

5 IF specempnocks CS. 0 ‘ ‘Always allocate at least 1 block 
exblocks = 1; 


-create_ options Cere$l_vert pl Fo, cre$c_vmsv2 ! If index is not variable key storage 


IF 

THEN indexBlocks = (.indexblocks*4)/ ! add in the fudge factor 
; 

: 

I 


! Write the pre-allocated index 
ey Ae 1 TO .indexblocks ‘Create the index 
perform (get_mem (lbr$c_pagesize, bufadr)); !Allocate a page 


FUN —ODOONOUSUN—O0On 
WANA AAI AIP PPI PIPONININININY 2 I OO OS OOO 


Ce oe ee wee fe lelololololololalololololololololo) 
WRC DONAULS WN “OOONAUVUSWN OV ONAULSWN—"O0@ 


RMNNMNNNININ 2 2 3 


RIPIPIPDPINONONININIPINININININIANNNINININPINININININININININIPININININININININININININ 2 2 


POPGPOPONPOPONYNININININPIPIPININPININPIPINININININININPY PO NUNYINUN 


=PIPIPIMPIPINIW ES FB HAIN NIIPIPINPINPINONI NPP NPOPONYD 
m 


perform (add_cache (.i+T, gachentry)): ‘add to cache 
cachentry Ccache$l_address] = .bufadr; 
gachentry cache$v_dirty] = true; ‘Mark block as modified 
bufadr CO] = (IF .7 NEQ .indexblocks 'Set Link to next block 
THEN .i+2 4 
om ELSE 0); ! or 0 if on Last block 
5 header [lhd$l_hipreal] = .indexblocks + 1; 'Set vbn of highest preallocated index block 
6 header Clhd$l_nextvbn] = .indexblocks + 2; 'Set next available vbn 
7 04 header [lhd$l_freeidx] = 2; ! and pointer to first free index block 
8 04 header Clhd$l_freidxblk]) = .indexblocks; 'Set count of available blocks 
$3 04 RETURN true 
0 04 ND; 'OF prealloc_index 


OFFC 00000 PREALLOC_INDEX: 
“WORD Save R2,R3,R4,R5,R6,R7,R8.R9,R10,R11 
5E 08 c2 00002 SUBL2 #8, SP 


aa 
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ES 


LOR APPR NCLOSE 


prealloc_index 


04 


50 000001F4 


00 


5E 
52 
5A 
56 


Routine Base: 


WFNOo 


moun 


VirrVWw VS VM WM Ow 
Wooovg o-D7 Oo MOW rw 


012¢ 


0200 


02 


04 
01 
02 


So 
o 
OW PD FS POMNMVIV1IO FP QMO SVN © PNLowWdFwWooccdFr OOvUwyrOoorocscry 


RII QNMINOONMNAN — MMOOMMOO MM — NI WON FW A Ss BUNS OO 


o 
OVT99 O09 $9999 OF BIO MWOOMUIWO- 9 ON 9 9 OO OF 9 SOW OC 


DOOOCOOOCOSGOOCOOOOOOOOOSOOoO 


COOoOCQOCOCooooooooooooooooooo 


FOOCOMMOD AO & S$ MW DOO OOM M QOMM $9 NOM OVA VIMO" MNO 


SOOoOoOoOoooooooooooooooscoo 


SCODES + OAF2 


dodeoe19Bh 03:01:25 


MOVL REATE_OPTIONS, R1 
MOVL 


1$: 


5$: 
6$: 


7$: 
8$: 


9$: 


10$: 


AX-11 Bliss-32 V4.0-74 
LBR.SRCJOPENCLOSE .832; 


=r 


R1), ENTALL 


( 

Fo NTALL 

a. acfny RO 

4R1), ENTSPERBLK 

#4, EN TSPERBLK 

6(RO) 

R2 ps0. ENTSPERBLK 
ENTSPERBLK, INDEXBLOCKS 
#, ea fNDExBLocKs 

e8( R1) 
a 
#8: 4 


P INDEXBLOCKS RO 
nt R 0, INDEXBLOCKS 


FADR, R1 
we RO 


T_MEM 
sits 10$ 
CACHENTRY, R1 
9) RO 
ADD_ CACHE 
STATUS, 10$ 
CACHENTRY. RO 
BUFADR, 8(RO) 

* INDEXBLOCKS 


gihe). RO 


RO 

RO, @BUFADR 
INDEXBLOCKS 

EA ER, RO 

(R3) +" 94(RO) 

(R3). 82(RO) 

2, 96(R0) 

RBEKBLOCKS. 86(RO) 


I 
H 
1 
2 
# 
I 
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Lbr_deal_mem 14 =| LBR.SRCJOPENCLOSE .832;1 (12) 
3 1 ¢ oe} ZSBTTL ‘lbr_deal_m 
51 1 GLOBAL ROUTINE Lbr_ Stal _mem (control_index) : NOVALUE = 
3 3 Be § BEGIN 
; 1235 4 i++ 
1539 gees | 
: ! i "6 FUNCTIONAL DESCRIPTION: 
; 1239 051 i This routine Geol locetes all memor onteseves during the processin 
3: 1240 O26 i of a a ty! This includes the | (ib brarian context Block. the header 
: : re. bez block, the RAB/NAM block, the block buffer, and any indices left. 
3 1 rk 822 i CALLING SEQUENCE: 
: 1244 28 i 
: 1245 0s i LBR_DEAL_MEM() 
3: 1246 058 i 
3: 1267 059 i INPUT PARAMETERS: 
: 1248 060 i 
3 12469 061 i 
3; 1250 O66 i OUTPUT PARAMETERS: 
: 1251 06 i NONE 
3 1 26 064 i 
; : e7 be? IMPLICIT OUTPUTS: 
3 1255 067 i The Librarian context block, the RAB/NAM block, and the block 
3; 1256 068 i buffer are all deallocated. 
: 1257 069 i 
3 1258 070 i SIDE EFFECTS: 
3 1259 071 i NONE 
; 1509 sore i 
3 1261 207 in 
3 1668 2074 
3: 126 2075 LOCAL : , 
5 1g6e sors context : REF BLOCK C,BYTE); ! Pointer to context block 
; 1so8 2078 01 
3: 1267 079 eader= gtbrsat. controlClbr$l_hdrptrd: nee” Ce Byte); 
: 1268 $080 IF Rane os NEQ 0 there is a header 
: 1269 081 THEN 
; 1570 oes BEGIN 
: 1271 08 LOCAL 
: 1st6 084 maxrecsiz; ' Maximum record size. 
3: 127 2085 IF -header( thd d$l_dcxmapvbn] EQL 0 THEN ! If not a OCX Library 
3 : re sone maxrecsiz = Tbr$c_maxrecsiz «22 normal maxrecsize, 
3: 1276 088 maxrecsiz = lLbr_dcx$c gnenroce tes ' use larger value. 
3 1277 089 dealloc_mem (lbr$c_pagesize, header ! Then deallocate the header. | 
; : A 844 if ccontent © = .lbr$gl_control Etbrst. “ctxptr)) NEQ 0 'If there is a context block 
3 1560 092 4 BEGIN 
3: 1281 093 4 If .context Cctx$l_recrab] NEQ 0 'If there is a RAB allocated 
2 1 Ht 094 4 THEN ‘then deallocate it 
3; 128 095 4 dealloc_mem (rab$c_bln+nam$c_bln, .context Cctx$l_recrab]); 
; 1385 O99 ? {f ,context™ Cctx$l_readbuf] NEQ 0 \If read buffer allocated | 
3: 1 98 4 dealloc_mem (.maxrecsiz, segatent Cetx$l readbuf] 
: 1287 099 4 IF context” Cetx$i_rdbufr) NEQ ‘Read buffer - | 


LBR_OPENCLOSE Sep-1984 :01: AX-11 Bliss-32 V4.0-74 Page 43 
1002000 Lbr_deal_mem 1$-$e0-19 4 93:93:28 LBR.SRCJO NCLOSE 783071 : (12) 
3; 1289 101 4 dealloc_mem (.lor$gl aueees * lbr$c_pa esize, 
: 1290 19¢ 4 ° ontaxt Cetx$l “eobatrd) 
: 1291 103 4! if context Cctx$l rphasht)- NeQ “lKeslcce’ oe sole allocated? 
31 % 104 4! THEN dealloc_mem (Tbr$c shagesize, .context (ctx$l_rpha 
3 ; 87 132 2 jf content Cetx$t _cach a0 'Disk Block aaane hash table allocated? 
3; 1295 1 § 4 dealloc_mem (lLbr$c_hashsize, context Cctx$l_cacheJ); 
; : 4 : 3 4 dealloc mem (ctx$c_length, .context); 'Deallocate che context block 
: 1298 110 END; 
3; 1299 111 dea control_ idx (.control_index); !Deassign control index 
: 1300 ig RETORN true” 
3; 1301 11 END; ! Of Lbr_deal_mem 
OFFC 00000 ENTRY LOR DEAL L_MEM, Save R2,R3,R4,R5,R6,R7,R8,R9,-; 2045 
54 00006 CF 9 0000 MOVAB DEALLOC_M : 
50 00006 CF 00 0000 MOVL LBRSGL CONTROL RO ; 2079 
51 OA AO 09 Bane MOVL 10(RO), R 3 
6B 13 00010 BEQL 7$ 3; 2080 
00sc Ci oS BnO Ng TSTL 140(R1) : 2085 
07 12 00016 BNEQ 1$ 3 
53 0800 8F 3C 00018 MOVZWL #2048, MAXRECSIZ 3: 2086 
05 11 0001D RB 2$ 3 
53 1000 8F Hs BOE 1$: MOVZWL #4096, aAanecsizZ : 2088 
50 0200 8F 3C ones 2s: MOVZWL #512, 3: 2089 
64 16 00029 JSB DEALLO 3 
50 0000G CF »bO 44 MOVL LBRSGL “CONTROL RO ; 2090 
52 OE AO b9 00030 MOVL 14(RO)> CONTEXT : 
47 13 00034 BEQL 7$ F 
oc A2 rf et TSTL 12( CONTEXT) 3: 2093 
OA 13 00039 BEQL 3$ 3 
51 0c A2 00 8038 MOVL et alla R1 : 2095 
50 AS = BFE OoO9A ~O003F MOVZBL #164, 3 
64 16 00043 JSB DEALLOC MEM HY 
2E «=«A2 rf 00045 3$: TSTL 46( CONTEXT) 3: 2096 
09 #1 9 944 BEQL 4$ r 
51 2E A2 DO O004A MOVL 46(CONTEXT), R1 3; 2098 
. a RE ere taen® : 
32 A2 OD ite 4$: TSTL BRON TERT) 3; 2099 
0c } 00056 BEQL 5$ 3 
50 00006 gf 09 00058 ASHL #9, LBRSGL_MAXREAD, RO 3; 2101 
1 32. A2 OD O05 MOVL  SOCCONTEXTS, R1 : 
64 «1 006. JSB DEALLOC_MEM 3 
08 <A2 05 00064 5$: TSTL 8(CONTERT) 3 2105 
0B 1 ed BEQL gs 3 
51 8 A 0069 MOVL SCQNTEXT) R1 3: 2107 
50 02 8F 3C bn95 MOVZWL #512, RO 3 
4 8 2 JSB DEALLOC_MEM 3 
3} 2 3 74 6$: OVL CONTEXT: R1 : 2108 
0 86 BF OA O77 MOVZBL #134, RO : 
4 16 7B JSB DEALLOC_MEM 3 


eo > orrwmwwmeaO————— ee oo 
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WOe=O00  Ubr_deal_men 1$-%e een 1882 9S:9bi ze PANE eb iss ee ue Oa hd Page 433 
0% AC DD PUSHL CONTROL INDEX 2011 

FEC CF oF Fe B008 CALLS #1, DEATCONTROL_IDX ! 
0 RET 


; Routine Size: 134 bytes, Routine Base: $CODE$S + 0897 
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voa= LBRSGET_HEADER 1e=35p=1984 93:97:48 ELBRsSrcdopenccose.03271 29° (13) 


v0 


; 1303 114 1 ZSBTTL ‘LBRSGET_HEADER’; : 
; 1304 115 1 GLOBAL ROUTINE LBrSget_header (control_index, retary) = : 
: 1305 116 ¢ BEGIN 3 
: 130 11 i ; 
; } 4 113 : FUNCTIONAL DESCRIPTION: : 
: 1310 121 i This routine retrieves the information from the Library header and stores : 
: : 1 ; ¢ } it into an array for the caller. : 
3 1 18 124 i CALLING SEQUENCE: 3 
; 1 \? ; $ status = LBRSGET_HEADER (control_index, retary) : 
: 1317 128 ¢ {INPUT PARAMETERS: 
; 1319 1% i control_index is the address of a Longword containing the F 
3 1330 13) 2 index returned by LBRSINI_CONTROL. ‘ 
; 1322 3135 $ i impLicit INPUTS: 3 
sper : 
: 1325 13? | QUTPUT PARAMETERS: : 
: 1327 138 § i The 128-longword array retary is filled in with the information from ; 
3 1358 $128 § the Library header. : 
; 1386 ae ; IMPLICIT QUTPUTS: ; 
: 133 14 i : 
; 1335 gi44 gi ROUTINE VALUE: ; 
: 1335 2146 2 ! Lbr$_Libnotopn Library was not open ; 
3 1336 site $ lLbr$_illctl illegal control block : 
TBR BSS § 1 ste agers : 
He BNE , 
tee SN baw 3 
i 1348 2135 24, retary : REF BLOCK C.BYTEI; ; 
; ‘ a6 3137 header : REF BLOCK C,BYTE); 'Pointer to header ; 
3 1348 $139 erform (validate_ctl (..control_index)); ‘validate the control table ‘ 
3 1349 160 F NOT .lbr$gl_control tibr$v_open] ‘If Library not open : 
3; 1350 161 THEN RETURN Lbr$_Libnotopn; ! thats an error too : 
3 1351 166 IF (header = ,lbr$gl_control Clor$lt_hdrptr]) EQL O!If no header in memory : 
3 1 26 16 OR ((.header Clhd$l_Sanity] NEQ ihd$Sc_saneid) ! or header appears bogus : 
3; 135 164 4 (.header ([lhd$l_sanity] NEQ Lhd$c_saneid3) : 
3 1354 165 AND (.header [lhd$l_sanity] NEQ Lhd$c_saneidc)) 3 
: 1329 166 THEN RETURN Lbr$_ilTctl ! then error 3 
Be BIRR daha elm 7 
> 1358 188 hdrnxtrfa = header Clhd$b_nextrfa] : BLOCK BYTE) : 
; 1359 170 retnxtrfa = retary Clhi$b_nextrfa] : BLOCK C,BYTE); 
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! Copy info from the header into the array 


retary Clhi$l_type] = .header Clhd$b RAS FF ‘Lib 
retary thist= ~nindex] = .header Clhd$ ndex 

retary (lhi$l-majorid) = ieater’ Lhd$w =n - ig : 
reser. Lhi$l"minorid) = .header_Clhd$w_min 

CHSMO E (3e header CihdSt Lbeverd retary cthise. (brver}); 
retary Clhi$l_credat) = .Reader C(h gredat at 

retary [lhi$l-credatj+4 = , (header tha l_credati+4 
retary Clhi$l_updtim] = .header Clhd$l ypd im 

retary thi$tupdt tin +4 = .(header Cihds yp tim) 
retary (Lhi$l_updhi = 9; Update 

retary thi$t-treevbn ae, thdst. freey> 1 : 
retary Clhi$l_freeblk eheader Clhd$l"freeb kJ; 
retnxtrfa prfasliv vbn) =  Karentrta t Crfa$l_vbn 
retnxtrfa (rfa$ soft et] = .hdrnxtrfa trfasw voftset); 
retary Clhi$w_rfax = 0; 

retary thist~nextvon] = theader Clhd$l_nextvbn]; 
retary [lniSt~freidxblk] = .header CUhdSt_freidxblkJ; 
retary thist free! x) = .header Lhdst. ffeeided 
retary Clhi$l_hipreal] = .header Clhd$l_hipreald; 
retary thi$t~idxblks) = ,header Clhd$l-idxblksJ; 
retary Clhi$l_idxcnt] = .header Clhd$l_TdxcntJ; 
retary Clhi$l_modcnt] = .header Clhd$l meee : 
retary CihiSi_mhdusz) =_.header Clhd$b_mhdu 

retary Clhi$l_maxluhrec] = .header Clhd$w waoxlunrec]: 
retary Clhi$l-numluhrec] = .header Clhd$w_ “numluhrecd; 
IF .header ClAd$w_closerror] EQL Lhd$c _corrupted 

THEN retary EtRigt- lLibstatus] = false 

ELSE retary Clhi$l_lLibstatus] = true; 

— Lbr$_normal” 

END; 


1b-Beoct9Re 03:01:25 
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‘Number PD Pndices 
'Copy format evel major/minor id 


'Creating Librarian version 


Creation date/time 
s iDate/tine of last update 
story VBN is now obsolete 


Ist deleted bloc 


Number of deleted blocks 


'Next VBN to allocate 


'Of LBRSGET_HEADER 


OFFC 00000 
50 046 =6BC yi 00002 
00006 30 00006 
01 50 Fe Bp ooe 
4 0000C 
50 0000G CF 00 0000D 1$: 
08 06 A 01 £0 B20 16 
50 000000006 8F »? B01 
4 Bate 
57 OA AO 0 8 1F 2$: 
3 1 0 ; 
0758C371 + =8F 04 . o 8) 2 
ODEC2581 BF 04 s o 09 4 
13071956 = 8F 04 A? D1 00039 
08 13 00041 


LBRSGET_HEADER, Save R2,R3,R4,R5,R6,R7,R8,- 


acONTROL _ INDEX, RO 
VALIDATE CTL 
STATUS, TS 


LBRSGL_CONTROL, RO 
#1, 6(RO), 
#LBR$_LIBNOTOPN, RO 
1OCRO), HEADER 


ZgNEABER) . #123454321 
ag eneee) . #233579905 
Tg eABER) . #319232342 
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oe } 1 ZSSBTTL ‘LBRSSET_LOCATE'; 
8 1 5 ROUTINE Lbr$set_locate (control_index) = 
2 


lee 
i 
FUNCTIONAL DESCRIPTION: 
This routine turns on locate mode. 
CALLING SEQUENCE: 
i 
i 
i 
' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
le 
2 
fs 
1 


— | 


oo 
be) 


SS2e LF 


ooo 
wr 


status = LBRSSET_LOCATE (control_index) 
! INPUT PARAMETERS: 


control_index is the address of a longword containing the 
index returned by LBRSINI_CONTROL. 


stati Ds abatioes 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 


| 
| 
| 
Lbr$_Libnotopn — was not open 
Lbr$_illctl whet control block 


SIDE EFFECTS: 
Locate mode is turned on. 


Validate the control table 
set locate mode 


erform (validate_ctl (..control_index)); 


WN“ OODNOUSWN “OO OONOU SW —O0@~ 


- 


p 
lor Sal control ClorSv_ locate] = true; 
RETU RN lors -norma 
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Ok a hd od dd 
uw 
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ti orsset. locate 


Ww 
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OFFC 00000 .ENTRY LBRSSET_LOCATE, Save R2,R3,R4,R5,R6,R7,R8,- ; 2208 
50 i 0002 MOVL acONTROL _ INDEX, RO > 2241 
* 0005 G 0006 BSBW Ss: VALLI : 
1 0009 BLBC Os SS : 
5 00006 CF 06 000C MOVL PBRSOL” CONTROL, RO > 2243 
06 A g1 8 90011 BISB2 : 
50 000000006 &F BO 0015 MOVL  #LBRS_NORMAL, RO > 2244 
4 0001C 1$ RET + 2245 


; Routine Size: 29 bytes, Routine Base: S$CODE$ + OCES 
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: 1436 2246 1 
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SIDE EFFECTS: 
Move mode is turned on. 


Validate the control table 
set locate mode 


perform (validate_ctl (..control_index)); 


RETURN control Clete. locate] = false; 
N” Lor$_ norma 


00000900 090909 SINS NINN NINN NSO OO 


hastene _move 


800 | 
1438 47 J XSBTTL  "LBRSSET_MOVE"; | 
> 1440 78 1 GLOBAL ROUTINE Lbr$set_move (control_index) = 

3 1441 0 BEGIN 

1208 > $i” | 
: 1444 § i FUNCTIONAL DESCRIPTION: | 
3 1223 2? This routine turns off locate mode and leaves Library in move mode. 

: 1448 37 i CALLING SEQUENCE: 

3 1029 53 status = LBRSSET_MOVE (control_index) 

; 145¢ 61 | INPUT PARAMETERS: 

> 1454 8 i control_index is the address of a looguerg containing the 

: ioe? see } index returned by LBRSINI_CONTROL. 

: 1457 266 2 | IMPLICIT INPUTS: 

ge ie 

: 1460 92: IMPLICIT. QUTPUTS: 

1g 5 | athe 

; es 2 i ROUTINE VALUE: 

: 1465 42! Lbr$_Libnotopn brar was not open 

; ; 66 2 Lbr$_illetl lene control block | 
:1 7 2: 

3 1 8 : | 
3 9 G : 

3; 7 0 : 

3 3 1 

3 1 2 

3 1 3 

| 4 

s } 5 

3 3 61€ 


OFFC 00000 ~ENTRY LORSSET MOVE, Save R2,R3,R4,R>,R6,R7,R8,R9,-; 2249 
50 04 BC D0 00002 MOVL @CONTROL_INDEX, RO ; 2282 
00006 30 00006 BSBW VALIDATE CTL : 
18 50 €E9 00009 BLBC STATUS, TS : 
5 00006 CF g° 000C MOVL LBRSGL_CONTROL, RO ; 2284 
06 Ad 1 8A 00011 BICB2 # : 
50 000000006 8F 00 00015 MOVL #LBRS_NORMAL, RO : $58? 
04 O001C 18: RET ; 2286 


3; Routine Size: 29 bytes, Routine Base: S$CODE$ + 0902 
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; 1480 88 ZSBTTL 'LBRSRET_RMSSTV’; 

; 1382 90 1 GLOBAL ROUTINE LbrSret_rmsstv = 

: 14 91 2 BEGIN 

: 108s 38 § i** 

: 14 94 2 | FUNCTIONAL DESCRIPTION: 

: 148 95 ! 

: re 4 38 This routine returns the RMS status value. 
; 1490 98 ¢ | CALLING SEQUENCE: 

: 149 0 i status = LBRSRET_RMSSTV () 
: 149 1 ! 

> 1494 0¢ i INPUT PARAMETERS: 

; 1499 03 ; NONE 

: 1499 308 i IMPLICIT INPUTS: 

: 1099 309 $i —_ 

: 1500 308 2 | IMPLICIT OUTPUTS: 

St rs a 

; 1208 1 i ROUTINE VALUE: 

: 1208 § \ the contents of Lbr$gl_rmsstv 
: 1506 514 i SIDE EFFECTS: 

: 1507 16 2: NONE 

: 1308 $319 § i. 

: 1510 2318 2 RETURN .Lbr$gl_rmsstv; 

: 1511 2319 1 END; ' Lor$ret_rmsstv 


0000 00000 «ENTRY LBRSRET_RMSSTV, Save nothing 
50 0000G CF BO Bons BOvL LBRSGL_RMSSTV, RO 


Routine Size: 8 bytes, Routine Base: S$CODES + ODIF 


; 1512 2320 1 


Pa 52 
9° 18) 
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: ie 1 } ZSBTTL ‘read_n_map_blocks' 
; 6 § } ROUTINE read.n_map_blocks ( vbn, addr, numblocks ) = 
: 151 5 1i 
3 i $ 1: This routine reads up to 10 blocks from the DCX 
: » , : map for this Library file. 
; ; 9 1! Inputs: 
: 15 , 28 vbn = block number at which to begin 
; 1524 11! reading from file 
3 2 5 ¢ 1! addr = longword to receive address of blocks 
; 2 ° Z } numblocks = number of blocks to read 
; 1528 3 : 3% Outputs: 
; 2 , ; : : addr = address of blocks read 
: 1531 338 1 inn 
; 23§ 339 1 
: 2 $e9 BEGIN 
: 15 g ¢ BIND 
3 15 context = .lbr$gl_control Clor$l_ctxptr]: BBLOCK, 
; : : rab = .context Cctx$l_recrab] : BBLOCK; 
; 6 2 LOCAL 
: i status; 
: 9 perform ( get_mem ( lbr$c_pagesize * .numblocks, rabCrab$l_ubf])); 
3 0 rabCrab$w_usz] = Lbr$c_pagesize * .numblocks; 
3 1 rablrab$l_bkt] = .vbn; 
; $ status = SREAD ( RAB = rab ); 
; 5 2 IF NOT .status 
; 6 THEN 
: i lbr$gl_rmsstv = .rab Crab$l_stv); 
3 2 addr = .rab Crab$l_rbfj; 
3 1 § RETURN .status; 
; $j END; 
-EXTRN SYSS$READ 
OFFC 00000 READ_N_MAP_BLOCKS: 
WW Save R2 
50 0000G CF DO 000C MOVL Watt tie 
23 3 2 DO 0000 MOVL 4(RO); 
5 C= COA 0 0B MOVL eth}. 
51 24—C«A OF MOVAB + Pla Be 
53 oc AC 9 7 3 ASHL #9, 
50 4 1 MOVL R3, R 
00006 0018 GET_M 


12 
e=000 TOSe read_n_map_blocks : 730071382 93:93:28 YeSR SRE obine 


R4,R5,R6,R7,R8,RI,R10,R11 
ROL, RO 


ais: 


3349 


LBR_OPENCLOSE 15-56 Sep-1984 AX-11 Bliss-32 V4.0-742 
1007000 read_n_map_blocks 1 300-1382 98: te ry LBR.SRCJOPENCLOSE .B32; 1 

2 E9 1 BLBC oa % 

30 a3 38 80 f MOVW Ry. 3pin3) 
A 06 AC D 5 MOVL 6(R2) 
DD A PUSHL 
000000006 00 F § CALLS # SYSSAEAS 
6 i BLBS i S$, 1 
0000G CF of Ae D 6 MOVL 2na) LBRSGL_RMSSTV 
08 BC A2 00 Q003SC 1$: MOVL 40(R2), R 
04 00041 2$: RET 
; Routine Size: 66 bytes, Routine Base: S$CODE$ + 0D27 
: 1557 tre 1 
; 1558 65 0 END ELUDOM 
-EXTRN LIBSSIGNAL 

; PSECT SUMMARY 
i Name Bytes Attributes 
: SOWNS _ % WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 34 NOVEE. *NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
eee: ee eee Syahelg eocasces Pages Processing 
: File Total Loaded Percent Mapped Time 
: -$255$DUA28: CSYSLIBISTARLET.L32;1 9776 142 1 581 00:01.0 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:OPENCLOSE/OBJ=OBJ$:OPENCLOSE MSF°$:OPENCLOSE/UPDATE=(ENH$: OPENCLOSE) 
3 Ld ore se + 32 data bytes 
; Elepsed. Time: 2:27. 
3 Lines/CPU Min: 1927 
3 Lexenes/CPU-Rin: 21986 
3; Memor 598 a 


et Bey Complete 


L EQUIPMENT CORPORATION 
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